(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    243433,       5336]
NotebookOptionsPosition[    237831,       5266]
NotebookOutlinePosition[    238321,       5284]
CellTagsIndexPosition[    238278,       5281]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
   "SetDirectory", "[", 
    "\"\</Users/stefanocaria/Dropbox/01 Research/Sierra Leone - CHW Project \
NEW/REPLICATION FILES/Results/Figures\>\"", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"gamma", " ", "=", " ", "43.14"}], "\[IndentingNewLine]", 
   RowBox[{"alpha", " ", "=", " ", "6.76"}], "\n", 
   RowBox[{"c1", " ", "=", " ", "169.16"}], "\n", 
   RowBox[{"c2", " ", "=", " ", "41690"}], "\n", 
   RowBox[{"b1", " ", "=", " ", "76.41"}], "\n", 
   RowBox[{"b2", " ", "=", " ", "49.90"}], "\n", 
   RowBox[{"z", " ", "=", " ", "3.6"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m", " ", "=", " ", "20"}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q", " ", "=", "0.90"}], " ", ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"qhat", " ", "=", "0.90"}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"k", "=", "9.690"}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"khat", "=", "9.690"}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"epsilon", " ", "=", " ", ".25844"}], ";"}], 
   "\[IndentingNewLine]", "\n", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gamma2", " ", "=", " ", "gamma"}], " ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m2", " ", "=", "m"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eta", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b1", "*", "z"}], ")"}], "+", "b2", "+", 
      RowBox[{"(", 
       RowBox[{"qhat", "*", 
        RowBox[{"(", 
         RowBox[{"m", "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"p", "*", 
              RowBox[{"(", 
               RowBox[{"z", "\[Minus]", "1"}], ")"}]}], ")"}], "-", 
            RowBox[{"(", 
             RowBox[{"khat", "*", "z"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}]}],
     " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"8", "*", "z", "*", "c1", "*", "c2"}], ")"}], "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}]}]}], " ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e1", " ", "=", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"2", "*", "alpha", "*", "c2", "*", 
        RowBox[{"(", 
         RowBox[{"eta", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"2", "*", "qhat", "*", "z", "*", 
             RowBox[{"(", 
              RowBox[{"k", "-", "khat"}], ")"}]}], ")"}], "*", "c2"}]}], " ", 
         ")"}]}], " ", ")"}], "/", "d1"}]}], " ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e2", " ", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"gamma", "*", "alpha", "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}], "/", "d1"}]}], " ", ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "c1", "*", "c2"}], ")"}], " ", "-", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "p"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", "p"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}]}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", " ", "c2", "*", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"q", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "p"}], ")"}], "-", "k"}], ")"}]}], ")"}]}], 
         ")"}]}], ")"}], "/", "d2"}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", " ", "*", " ", "gamma", " ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "p"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", "p"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}], "/", "d2"}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", " ", 
     RowBox[{
      RowBox[{"alpha", "*", "e1"}], "+", " ", 
      RowBox[{"(", 
       RowBox[{"gamma", "*", "e1", "*", "e2"}], ")"}]}]}], " ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"y", " ", "=", 
     RowBox[{
      RowBox[{"alpha", "*", "a1"}], "+", " ", 
      RowBox[{"(", 
       RowBox[{"gamma", "*", "a1", "*", "a2"}], ")"}]}]}], " ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"w", " ", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], " ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kappa", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b2", "+", 
        RowBox[{"(", 
         RowBox[{"qhat", "*", "m"}], ")"}], "-", 
        RowBox[{"(", 
         RowBox[{"z", "*", "b1"}], ")"}], " ", "+", " ", 
        RowBox[{"(", 
         RowBox[{"qhat", "*", "khat", "*", "z"}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"qhat", "*", "m", "*", 
        RowBox[{"(", 
         RowBox[{"z", "+", "1"}], ")"}]}], ")"}]}]}], " ", ";"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"x", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Visits"}], "}"}]}]}], "]"}], " ", ";"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"y", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Visits"}], "}"}]}]}], "]"}], " ", ";"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"figure1", "=", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{"w", ",", " ", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Visits"}], "}"}]}]}], "]"}]}], " ", 
   "\[IndentingNewLine]", " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<Figure2.pdf\>\"", ",", "figure1"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Maximize", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"w", ",", " ", 
       RowBox[{"p", "\[GreaterEqual]", "0"}], ",", " ", 
       RowBox[{"p", "\[LessEqual]", "1"}]}], "}"}], ",", "p"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", 
    RowBox[{
    "eta", ",", " ", "d1", ",", " ", "e1", ",", " ", "e2", ",", " ", "d2", 
     ",", " ", "a1", ",", " ", "a2", ",", " ", "x", ",", " ", "y", ",", " ", 
     "w", ",", " ", "kappa", ",", " ", "gamma"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eta", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b1", "*", "z"}], ")"}], "+", "b2", "+", 
      RowBox[{"(", 
       RowBox[{"qhat", "*", 
        RowBox[{"(", 
         RowBox[{"m", "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"p", "*", 
              RowBox[{"(", 
               RowBox[{"z", "\[Minus]", "1"}], ")"}]}], ")"}], "-", 
            RowBox[{"(", 
             RowBox[{"khat", "*", "z"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"8", "*", "z", "*", "c1", "*", "c2"}], ")"}], "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e1", " ", "=", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"2", "*", "alpha", "*", "c2", "*", 
        RowBox[{"(", 
         RowBox[{"eta", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"2", "*", "qhat", "*", "z", "*", 
             RowBox[{"(", 
              RowBox[{"k", "-", "khat"}], ")"}]}], ")"}], "*", "c2"}]}], " ", 
         ")"}]}], " ", ")"}], "/", "d1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e2", " ", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"gamma", "*", "alpha", "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}], "/", "d1"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "c1", "*", "c2"}], ")"}], " ", "-", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "p"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", "p"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", " ", "c2", "*", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"q", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "p"}], ")"}], "-", "k"}], ")"}]}], ")"}]}], 
         ")"}]}], ")"}], "/", "d2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", " ", "*", " ", "gamma", " ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "p"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", "p"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}], "/", "d2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"step", " ", "=", " ", 
     RowBox[{"gamma2", " ", "*", "0.025"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"first", " ", "=", " ", 
     RowBox[{"gamma2", "*", "0.9"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"last", " ", "=", " ", 
     RowBox[{"gamma2", "*", "1.1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"myp", "=", " ", 
     RowBox[{"Table", "[", " ", 
      RowBox[{
       RowBox[{"p", "/.", 
        RowBox[{"Last", "[", 
         RowBox[{"Maximize", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"(", " ", 
               RowBox[{"alpha", " ", "*", "a1"}], " ", ")"}], " ", "+", " ", 
              RowBox[{"(", 
               RowBox[{"gamma", "*", "a1", "*", "a2"}], ")"}]}], ",", " ", 
             RowBox[{"p", "\[GreaterEqual]", "0"}], ",", " ", 
             RowBox[{"p", "\[LessEqual]", "1"}]}], "}"}], ",", "p"}], "]"}], 
         "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"gamma", ",", "first", ",", "last", ",", "step"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mygamma", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"gamma", ",", 
       RowBox[{"{", 
        RowBox[{"gamma", ",", "first", ",", "last", ",", "step"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"figure2", " ", "=", " ", 
    RowBox[{"ListPlot", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"mygamma", ",", "myp"}], "}"}], "]"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<\[Gamma]\>\"", ",", " ", 
         RowBox[{"Optimal", " ", "p"}]}], "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<Figure3.pdf\>\"", ",", "figure2"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", 
    RowBox[{
    "eta", ",", " ", "d1", ",", " ", "e1", ",", " ", "e2", ",", " ", "d2", 
     ",", " ", "a1", ",", " ", "a2", ",", " ", "step", ",", "first", ",", " ",
      "last", ",", " ", "my", ",", " ", "mygamma"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"step", "=", "1"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"first", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"last", "=", "20"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"gamma", " ", "=", " ", 
     RowBox[{"gamma2", " ", "+", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"4", "-", "year"}], ")"}], "*", "epsilon"}], ")"}]}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eta", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b1", "*", "z"}], ")"}], "+", "b2", "+", 
      RowBox[{"(", 
       RowBox[{"qhat", "*", 
        RowBox[{"(", 
         RowBox[{"m", "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"p", "*", 
              RowBox[{"(", 
               RowBox[{"z", "\[Minus]", "1"}], ")"}]}], ")"}], "-", 
            RowBox[{"(", 
             RowBox[{"khat", "*", "z"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"8", "*", "z", "*", "c1", "*", "c2"}], ")"}], "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e1", " ", "=", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"2", "*", "alpha", "*", "c2", "*", 
        RowBox[{"(", 
         RowBox[{"eta", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"2", "*", "qhat", "*", "z", "*", 
             RowBox[{"(", 
              RowBox[{"k", "-", "khat"}], ")"}]}], ")"}], "*", "c2"}]}], " ", 
         ")"}]}], " ", ")"}], "/", "d1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e2", " ", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"gamma", "*", "alpha", "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}], "/", "d1"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "c1", "*", "c2"}], ")"}], " ", "-", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "p"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", "p"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", " ", "c2", "*", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"q", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "p"}], ")"}], "-", "k"}], ")"}]}], ")"}]}], 
         ")"}]}], ")"}], "/", "d2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", " ", "*", " ", "gamma", " ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "p"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", "p"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}], "/", "d2"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"cd2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "c1", "*", "c2"}], ")"}], " ", "-", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "1"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", "1"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ca1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", " ", "c2", "*", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"q", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "1"}], ")"}], "-", "k"}], ")"}]}], ")"}]}], 
         ")"}]}], ")"}], "/", "cd2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ca2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", " ", "*", " ", "gamma", " ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "1"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", "1"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}], "/", "cd2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sd2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "c1", "*", "c2"}], ")"}], " ", "-", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", ".5"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", ".5"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sa1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", " ", "c2", "*", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"q", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", ".5"}], ")"}], "-", "k"}], ")"}]}], ")"}]}], 
         ")"}]}], ")"}], "/", "sd2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sa2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", " ", "*", " ", "gamma", " ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", ".5"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", ".5"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}], "/", "sd2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"md2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "c1", "*", "c2"}], ")"}], " ", "-", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "0"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", "0"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ma1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", " ", "c2", "*", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"q", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "0"}], ")"}], "-", "k"}], ")"}]}], ")"}]}], 
         ")"}]}], ")"}], "/", "md2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ma2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", " ", "*", " ", "gamma", " ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "0"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", "0"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}], "/", "md2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"alpha", " ", "*", "sa1"}], " ", ")"}], " ", "+", " ", 
      RowBox[{"(", 
       RowBox[{"gamma", "*", "sa1", "*", "sa2"}], ")"}], " ", "-", " ", 
      RowBox[{"(", " ", 
       RowBox[{"alpha", " ", "*", "ca1"}], " ", ")"}], " ", "-", " ", 
      RowBox[{"(", 
       RowBox[{"gamma", "*", "ca1", "*", "ca2"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"alpha", " ", "*", "sa1"}], " ", ")"}], " ", "+", " ", 
      RowBox[{"(", 
       RowBox[{"gamma", "*", "sa1", "*", "sa2"}], ")"}], " ", "-", " ", 
      RowBox[{"(", " ", 
       RowBox[{"alpha", " ", "*", "ma1"}], " ", ")"}], " ", "-", " ", 
      RowBox[{"(", 
       RowBox[{"gamma", "*", "ma1", "*", "ma2"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"myt1", "=", " ", 
     RowBox[{"Table", "[", " ", 
      RowBox[{"t1", ",", 
       RowBox[{"{", 
        RowBox[{"year", ",", "first", ",", "last", ",", "step"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"myt2", "=", " ", 
     RowBox[{"Table", "[", " ", 
      RowBox[{"t2", ",", 
       RowBox[{"{", 
        RowBox[{"year", ",", "first", ",", "last", ",", "step"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mygamma", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"year", ",", 
       RowBox[{"{", 
        RowBox[{"year", ",", "first", ",", "last", ",", "step"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"figure3", " ", "=", " ", 
    RowBox[{"ListPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Labeled", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{"mygamma", ",", "myt1"}], "}"}], "]"}], " ", ",", 
          "\"\<Tshared - Tworker\>\"", " ", ",", " ", 
          RowBox[{"{", 
           RowBox[{"Above", ",", " ", "Left"}], "}"}], " ", ",", " ", 
          RowBox[{"LabelStyle", "\[Rule]", "Blue"}]}], "]"}], ",", " ", 
        RowBox[{"Labeled", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{"mygamma", ",", "myt2"}], "}"}], "]"}], ",", 
          "\"\<Tshared - Tsupv\>\"", ",", " ", 
          RowBox[{"LabelStyle", "\[Rule]", "Orange"}]}], "]"}]}], "}"}], ",", 
      
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Years experience\>\"", ",", " ", 
         "\"\<\[CapitalDelta] Visits\>\""}], "}"}]}], ",", " ", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", " ", "Orange"}], "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<FigureA6.pdf\>\"", ",", "figure3"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", 
    RowBox[{
    "eta", ",", " ", "d1", ",", " ", "e1", ",", " ", "e2", ",", " ", "d2", 
     ",", " ", "a1", ",", " ", "a2", ",", " ", "cd2", ",", "ca1", ",", " ", 
     "ca2", ",", "sd2", ",", " ", "sa1", ",", " ", "sa2", ",", "md2", ",", 
     " ", "ma1", ",", " ", "ma2", ",", "t1", ",", " ", "t2", ",", " ", "myt1",
      ",", " ", "myt2", ",", " ", "step", ",", "first", ",", " ", "last", ",",
      " ", "mygamma", ",", " ", "m"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gamma", " ", "=", " ", "gamma2"}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"eta", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b1", "*", "z"}], ")"}], "+", "b2", "+", 
      RowBox[{"(", 
       RowBox[{"qhat", "*", 
        RowBox[{"(", 
         RowBox[{"m", "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"p", "*", 
              RowBox[{"(", 
               RowBox[{"z", "\[Minus]", "1"}], ")"}]}], ")"}], "-", 
            RowBox[{"(", 
             RowBox[{"khat", "*", "z"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"8", "*", "z", "*", "c1", "*", "c2"}], ")"}], "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e1", " ", "=", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"2", "*", "alpha", "*", "c2", "*", 
        RowBox[{"(", 
         RowBox[{"eta", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"2", "*", "qhat", "*", "z", "*", 
             RowBox[{"(", 
              RowBox[{"k", "-", "khat"}], ")"}]}], ")"}], "*", "c2"}]}], " ", 
         ")"}]}], " ", ")"}], "/", "d1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e2", " ", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"gamma", "*", "alpha", "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}], "/", "d1"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "c1", "*", "c2"}], ")"}], " ", "-", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "p"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", "p"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", " ", "c2", "*", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"q", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "p"}], ")"}], "-", "k"}], ")"}]}], ")"}]}], 
         ")"}]}], ")"}], "/", "d2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", " ", "*", " ", "gamma", " ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "*", "p"}], ")"}], "-", "khat"}], ")"}]}], 
           ")"}]}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"qhat", "*", 
            RowBox[{"(", 
             RowBox[{"m", "*", 
              RowBox[{"(", 
               RowBox[{"1", "-", "p"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "  ", ")"}], "/", "d2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"step", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"first", " ", "=", " ", 
     RowBox[{"m2", "*", "0.5"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"last", " ", "=", " ", 
     RowBox[{"m2", "*", "2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"myp", "=", " ", 
     RowBox[{"Table", "[", " ", 
      RowBox[{
       RowBox[{"p", "/.", 
        RowBox[{"Last", "[", 
         RowBox[{"Maximize", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"(", " ", 
               RowBox[{"alpha", " ", "*", "a1"}], " ", ")"}], " ", "+", " ", 
              RowBox[{"(", 
               RowBox[{"gamma", "*", "a1", "*", "a2"}], ")"}]}], ",", " ", 
             RowBox[{"p", "\[GreaterEqual]", "0"}], ",", " ", 
             RowBox[{"p", "\[LessEqual]", "1"}]}], "}"}], ",", "p"}], "]"}], 
         "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "first", ",", "last", ",", "step"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mygamma", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"m", "*", "100"}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "first", ",", "last", ",", "step"}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"figure4", " ", "=", " ", 
    RowBox[{"ListPlot", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"mygamma", ",", "myp"}], "}"}], "]"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<Size of payment\>\"", ",", " ", 
         RowBox[{"Optimal", " ", "p"}]}], "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<FigureA7.pdf\>\"", ",", "figure4"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gamma", " ", "=", " ", "34"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"alpha", " ", "=", " ", "5.3"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"c1", " ", "=", " ", "2050.310"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"c2", " ", "=", " ", "42049"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"b1", " ", "=", " ", "77.6"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"b2", " ", "=", " ", "50.1"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"z", " ", "=", " ", "0.15"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d", " ", "=", " ", "20"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"b", "=", " ", "40"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m", " ", "=", " ", "20"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"o1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"p", "*", "m"}], ")"}], "+", "d", "-", "a"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"o2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"p", "*", "m"}], ")"}], "+", "d", "-", "a"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "-", "a"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"o3", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", "a"}], ")"}], "/", "2"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eta", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b1", "*", "z"}], ")"}], "+", "b2", "+", 
      RowBox[{"(", 
       RowBox[{"o2", "*", "m", "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"(", 
           RowBox[{"p", "*", 
            RowBox[{"(", 
             RowBox[{"z", "\[Minus]", "1"}], ")"}]}], ")"}]}], ")"}]}], ")"}],
       "-", 
      RowBox[{"(", 
       RowBox[{"z", "*", "o3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"8", "*", "z", "*", "c1", "*", "c2"}], ")"}], "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e1", " ", "=", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"2", "*", "alpha", "*", "eta", "*", "c2"}], " ", ")"}], " ", 
      "/", "d1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e2", " ", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"gamma", "*", "alpha", "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}], "/", "d1"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "c1", "*", "c2"}], ")"}], " ", "-", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], " ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"m", "*", "p", "*", "o2"}], ")"}], "-", "o3"}], ")"}], " ",
         "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"m", "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "p"}], ")"}]}], ")"}], "*", "o2"}]}], ")"}]}],
        "   ", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", " ", "c2", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"m", "*", "p", "*", "o2"}], ")"}], "-", "o3"}], ")"}]}], 
       "  ", ")"}], "/", "d2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", "gamma", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"m", "*", "p", "*", "o2"}], ")"}], " ", "-", "o3"}], " ", 
         ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"m", "*", 
            RowBox[{"(", 
             RowBox[{"1", "-", "p"}], ")"}], "*", "o2"}], ")"}]}], ")"}]}], 
       ")"}], "/", "d2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kappa", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", "z"}], ")"}]}], ")"}], "+", " ", 
      RowBox[{"(", "  ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "-", "a"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"p", "*", "m"}], ")"}], "+", "d", "-", "a"}], ")"}]}], 
         ")"}], "  ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b2", "-", 
            RowBox[{"(", 
             RowBox[{"z", "*", "b1"}], ")"}], "+", 
            RowBox[{"(", 
             RowBox[{"o3", "*", "z"}], ")"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"m", "*", 
            RowBox[{"(", 
             RowBox[{"z", "+", "1"}], ")"}]}], ")"}]}], ")"}]}], "    ", 
       ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", " ", 
     RowBox[{
      RowBox[{"alpha", "*", "e1"}], "+", " ", 
      RowBox[{"(", 
       RowBox[{"gamma", "*", "e1", "*", "e2"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"y", " ", "=", 
     RowBox[{
      RowBox[{"alpha", "*", "a1"}], "+", " ", 
      RowBox[{"(", 
       RowBox[{"gamma", "*", "a1", "*", "a2"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"w", " ", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f1", " ", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"e1", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a1", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f2", " ", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"e2", "*", "30"}], ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"a2", "*", "30"}], ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s", "=", " ", 
     RowBox[{
      RowBox[{"(", "    ", 
       RowBox[{"b2", " ", "-", " ", 
        RowBox[{"(", 
         RowBox[{"z", "*", "b1"}], ")"}], "+", 
        RowBox[{"(", 
         RowBox[{"o3", "*", "z"}], ")"}], "-", " ", 
        RowBox[{"(", 
         RowBox[{"o3", "*", "m", "*", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"(", 
             RowBox[{"p", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", "z"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "     ", ")"}], " ", "/", " ", 
      RowBox[{"(", 
       RowBox[{"2", "*", "z", "*", "o2"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s2", " ", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"s", "*", "z", "*", "y"}], ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s3", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"s", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"effort2", " ", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"e2", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a2", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"w", "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], "*", "m"}], ")"}], "+", 
      RowBox[{"(", 
       RowBox[{"b2", "*", "w"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p2", " ", "=", 
     RowBox[{"p1", "-", " ", "s2", " ", "-", 
      RowBox[{"(", " ", 
       RowBox[{"c2", "*", 
        RowBox[{"(", 
         RowBox[{"effort2", "^", "2"}], ")"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"x", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Visits"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"y", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Visits"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"figurea", "=", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{"w", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Visits"}], "}"}]}], ",", " ", 
      RowBox[{"Ticks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.4", ",", " ", "0.6", ",", "0.8", ",", "1"}], 
          "}"}], ",", "None"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"f1", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "EffortCHW"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"f2", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "EffortPS"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"figureb", "=", " ", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{"f1", ",", 
        RowBox[{"{", 
         RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
        RowBox[{"PlotLabels", "\[Rule]", 
         RowBox[{"{", "\"\<Worker\>\"", "}"}]}]}], "]"}], ",", " ", 
      RowBox[{"Plot", "[", 
       RowBox[{"f2", ",", 
        RowBox[{"{", 
         RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", " ", 
        RowBox[{"PlotLabels", "\[Rule]", 
         RowBox[{"{", "\"\<Supervisor\>\"", "}"}]}]}], "]"}], " ", ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Effort"}], "}"}]}], ",", "  ", 
      RowBox[{"Ticks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.4", ",", " ", "0.6", ",", "0.8", ",", "1"}], 
          "}"}], ",", "None"}], "}"}]}], ",", " ", 
      RowBox[{"PlotRange", "->", "All"}], ",", " ", 
      RowBox[{"AxesOrigin", "->", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0.20"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"figurec", "=", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{"s3", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "SidePayment"}], "}"}]}], ",", "  ", 
      RowBox[{"Ticks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.4", ",", " ", "0.6", ",", "0.8", ",", "1"}], 
          "}"}], ",", "None"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<FigureA2a1.pdf\>\"", ",", "figurea"}], "]"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<FigureA2a2.pdf\>\"", ",", "figureb"}], "]"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<FigureA2a3.pdf\>\"", ",", "figurec"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gamma", " ", "=", " ", "33.976"}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"alpha", " ", "=", " ", "5.2685"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"c1", " ", "=", " ", "105.310"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"c2", " ", "=", " ", "42049"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"b1", " ", "=", " ", "77.618"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"b2", " ", "=", " ", "50.109"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"z", " ", "=", " ", "3.61"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"m", " ", "=", " ", "20"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d", " ", "=", " ", "120"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a", "=", "0.49"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"b", "=", " ", "171.22"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"o1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"p", "*", "m"}], ")"}], "+", "d", "-", "a"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"o2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"p", "*", "m"}], ")"}], "+", "d", "-", "a"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "-", "a"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"o3", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", "a"}], ")"}], "/", "2"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eta", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b1", "*", "z"}], ")"}], "+", "b2", "+", 
      RowBox[{"(", 
       RowBox[{"o2", "*", "m", "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"(", 
           RowBox[{"p", "*", 
            RowBox[{"(", 
             RowBox[{"z", "\[Minus]", "1"}], ")"}]}], ")"}]}], ")"}]}], ")"}],
       "-", 
      RowBox[{"(", 
       RowBox[{"z", "*", "o3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"8", "*", "z", "*", "c1", "*", "c2"}], ")"}], "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e1", " ", "=", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"2", "*", "alpha", "*", "eta", "*", "c2"}], " ", ")"}], " ", 
      "/", "d1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e2", " ", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"gamma", "*", "alpha", "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}], "/", "d1"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "c1", "*", "c2"}], ")"}], " ", "-", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], " ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"m", "*", "p", "*", "o2"}], ")"}], "-", "o3"}], ")"}], " ",
         "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"m", "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "p"}], ")"}]}], ")"}], "*", "o2"}]}], ")"}]}],
        "   ", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", " ", "c2", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"m", "*", "p", "*", "o2"}], ")"}], "-", "o3"}], ")"}]}], 
       "  ", ")"}], "/", "d2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", "gamma", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"m", "*", "p", "*", "o2"}], ")"}], " ", "-", "o3"}], " ", 
         ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"m", "*", 
            RowBox[{"(", 
             RowBox[{"1", "-", "p"}], ")"}], "*", "o2"}], ")"}]}], ")"}]}], 
       ")"}], "/", "d2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kappa", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", "z"}], ")"}]}], ")"}], "+", " ", 
      RowBox[{"(", "  ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "-", "a"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"p", "*", "m"}], ")"}], "+", "d", "-", "a"}], ")"}]}], 
         ")"}], "  ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b2", "+", "m", "-", 
            RowBox[{"(", 
             RowBox[{"z", "*", "b1"}], ")"}], "+", 
            RowBox[{"(", 
             RowBox[{"o3", "*", "z"}], ")"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"m", "*", 
            RowBox[{"(", 
             RowBox[{"z", "+", "1"}], ")"}]}], ")"}]}], ")"}]}], "    ", 
       ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", " ", 
     RowBox[{
      RowBox[{"alpha", "*", "e1"}], "+", " ", 
      RowBox[{"(", 
       RowBox[{"gamma", "*", "e1", "*", "e2"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"y", " ", "=", 
     RowBox[{
      RowBox[{"alpha", "*", "a1"}], "+", " ", 
      RowBox[{"(", 
       RowBox[{"gamma", "*", "a1", "*", "a2"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"w", " ", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f1", " ", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"e1", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a1", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f2", " ", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"e2", "*", "10"}], ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"a2", "*", "10"}], ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s", "=", " ", 
     RowBox[{
      RowBox[{"(", "    ", 
       RowBox[{"b2", "+", "m", " ", "-", " ", 
        RowBox[{"(", 
         RowBox[{"z", "*", "b1"}], ")"}], "+", 
        RowBox[{"(", 
         RowBox[{"o3", "*", "z"}], ")"}], "-", " ", 
        RowBox[{"(", 
         RowBox[{"o3", "*", "m", "*", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"(", 
             RowBox[{"p", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", "z"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "     ", ")"}], " ", "/", " ", 
      RowBox[{"(", 
       RowBox[{"2", "*", "z", "*", "o2"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s2", " ", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"s", "*", "z", "*", "y"}], ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s3", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"s", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"effort2", " ", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"e2", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a2", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"w", "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], "*", "m"}], ")"}], "+", 
      RowBox[{"(", 
       RowBox[{"b2", "*", "w"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p2", " ", "=", 
     RowBox[{"p1", "-", " ", "s2", " ", "-", 
      RowBox[{"(", " ", 
       RowBox[{"c2", "*", 
        RowBox[{"(", 
         RowBox[{"effort2", "^", "2"}], ")"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"x", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Visits"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"y", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Visits"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"figurea", "=", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{"w", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Visits"}], "}"}]}], ",", " ", 
      RowBox[{"Ticks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.4", ",", " ", "0.6", ",", "0.8", ",", "1"}], 
          "}"}], ",", "None"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"f1", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "EffortCHW"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"f2", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "EffortPS"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"figureb", "=", " ", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{"f1", ",", 
        RowBox[{"{", 
         RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
        RowBox[{"PlotLabels", "\[Rule]", 
         RowBox[{"{", "\"\<Worker\>\"", "}"}]}]}], "]"}], " ", ",", 
      RowBox[{"Plot", "[", 
       RowBox[{"f2", ",", 
        RowBox[{"{", 
         RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", " ", 
        RowBox[{"PlotLabels", "\[Rule]", 
         RowBox[{"{", "\"\<Supervisor\>\"", "}"}]}]}], "]"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Effort"}], "}"}]}], ",", "  ", 
      RowBox[{"Ticks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.4", ",", " ", "0.6", ",", "0.8", ",", "1"}], 
          "}"}], ",", "None"}], "}"}]}], ",", " ", 
      RowBox[{"PlotRange", "->", "All"}], ",", " ", 
      RowBox[{"AxesOrigin", "->", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"figurec", "=", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{"s3", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "SidePayment"}], "}"}]}], ",", "  ", 
      RowBox[{"Ticks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.4", ",", " ", "0.6", ",", "0.8", ",", "1"}], 
          "}"}], ",", "None"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"p1", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "SupPayment"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"figured", "=", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{"p2", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "SupervisorWelfare"}], "}"}]}], ",", "  ", 
      RowBox[{"Ticks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.4", ",", " ", "0.6", ",", "0.8", ",", "1"}], 
          "}"}], ",", "None"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<FigureA2b1.pdf\>\"", ",", "figurea"}], "]"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<FigureA2b2.pdf\>\"", ",", "figureb"}], "]"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<FigureA2b3.pdf\>\"", ",", "figurec"}], "]"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<FigureA3.pdf\>\"", ",", "figured"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gamma", " ", "=", " ", "36.476"}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"alpha", " ", "=", " ", "5.2685"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"c1", " ", "=", " ", "105.310"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"c2", " ", "=", " ", "42049"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"b1", " ", "=", " ", "77.618"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"b2", " ", "=", " ", "50.109"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"z", " ", "=", " ", "3.61"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"m", " ", "=", " ", "20"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"k", "=", "0.01"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d", " ", "=", " ", "18"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a", "=", "0.49"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"b", "=", " ", "22"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"o1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"p", "*", "m"}], ")"}], "+", "d", "-", "a"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"o2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"k", "*", "p", "*", "m"}], ")"}], "+", "d", "-", "a"}], 
       ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "-", "a"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"o3", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", "a"}], ")"}], "/", "2"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eta", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b1", "*", "z"}], ")"}], "+", "b2", "+", 
      RowBox[{"(", 
       RowBox[{"o2", "*", "m", "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"(", 
           RowBox[{"p", "*", 
            RowBox[{"(", 
             RowBox[{"z", "\[Minus]", "1"}], ")"}]}], ")"}]}], ")"}]}], ")"}],
       "-", 
      RowBox[{"(", 
       RowBox[{"z", "*", "o3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"8", "*", "z", "*", "c1", "*", "c2"}], ")"}], "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e1", " ", "=", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"2", "*", "alpha", "*", "eta", "*", "c2"}], " ", ")"}], " ", 
      "/", "d1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e2", " ", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"gamma", "*", "alpha", "*", 
        RowBox[{"(", 
         RowBox[{"eta", "^", "2"}], ")"}]}], ")"}], "/", "d1"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "c1", "*", "c2"}], ")"}], " ", "-", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"gamma", "^", "2"}], ")"}], " ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"m", "*", "p", "*", "o2"}], ")"}], "-", "o3"}], ")"}], " ",
         "*", "  ", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"m", "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "p"}], ")"}]}], ")"}], "*", "o2"}]}], ")"}]}],
        "   ", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", " ", "c2", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"m", "*", "p", "*", "o2"}], ")"}], "-", "o3"}], ")"}]}], 
       "  ", ")"}], "/", "d2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "*", "gamma", "*", " ", 
        RowBox[{"(", 
         RowBox[{"b1", "+", 
          RowBox[{"(", 
           RowBox[{"m", "*", "p", "*", "o2"}], ")"}], " ", "-", "o3"}], " ", 
         ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"b2", "+", 
          RowBox[{"(", 
           RowBox[{"m", "*", 
            RowBox[{"(", 
             RowBox[{"1", "-", "p"}], ")"}], "*", "o2"}], ")"}]}], ")"}]}], 
       ")"}], "/", "d2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kappa", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", "z"}], ")"}]}], ")"}], "+", " ", 
      RowBox[{"(", "  ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "-", "a"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"k", "*", "p", "*", "m"}], ")"}], "+", "d", "-", "a"}], 
           ")"}]}], ")"}], "  ", "*", "  ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b2", "-", 
            RowBox[{"(", 
             RowBox[{"z", "*", "b1"}], ")"}], "+", 
            RowBox[{"(", 
             RowBox[{"o3", "*", "z"}], ")"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"m", "*", 
            RowBox[{"(", 
             RowBox[{"z", "+", "1"}], ")"}]}], ")"}]}], ")"}]}], "    ", 
       ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", " ", 
     RowBox[{
      RowBox[{"alpha", "*", "e1"}], "+", " ", 
      RowBox[{"(", 
       RowBox[{"gamma", "*", "e1", "*", "e2"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"y", " ", "=", 
     RowBox[{
      RowBox[{"alpha", "*", "a1"}], "+", " ", 
      RowBox[{"(", 
       RowBox[{"gamma", "*", "a1", "*", "a2"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"w", " ", "=", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f1", " ", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"e1", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a1", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f2", " ", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"e2", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a2", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s", "=", " ", 
     RowBox[{
      RowBox[{"(", "    ", 
       RowBox[{"b2", "-", " ", 
        RowBox[{"(", 
         RowBox[{"z", "*", "b1"}], ")"}], "+", 
        RowBox[{"(", 
         RowBox[{"o3", "*", "z"}], ")"}], "-", " ", 
        RowBox[{"(", 
         RowBox[{"o3", "*", "m", "*", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"(", 
             RowBox[{"p", "*", 
              RowBox[{"(", 
               RowBox[{"1", "+", "z"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], 
       "     ", ")"}], " ", "/", " ", 
      RowBox[{"(", 
       RowBox[{"2", "*", "z", "*", "o2"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s2", " ", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"s", "*", "z", "*", "y"}], ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s3", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"s", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"effort2", " ", "=", " ", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"e2", ",", 
          RowBox[{"p", "<=", "kappa"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a2", ",", 
          RowBox[{"p", ">", "kappa"}]}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p1", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"w", "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], "*", "m"}], ")"}], "+", 
      RowBox[{"(", 
       RowBox[{"b2", "*", "w"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p2", " ", "=", 
     RowBox[{"p1", "-", " ", "s2", " ", "-", 
      RowBox[{"(", " ", 
       RowBox[{"c2", "*", 
        RowBox[{"(", 
         RowBox[{"effort2", "^", "2"}], ")"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"x", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Visits"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"y", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Visits"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"figurea", "=", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{"w", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Visits"}], "}"}]}], ",", " ", 
      RowBox[{"Ticks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.4", ",", " ", "0.6", ",", "0.8", ",", "1"}], 
          "}"}], ",", "None"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"f1", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "EffortCHW"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"f2", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "EffortPS"}], "}"}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"figureb", "=", " ", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"f2", "*", "10"}], ",", 
        RowBox[{"{", 
         RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", " ", 
        RowBox[{"PlotLabels", "\[Rule]", 
         RowBox[{"{", "\"\<Supervisor\>\"", "}"}]}]}], "]"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{"f1", ",", 
        RowBox[{"{", 
         RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
        RowBox[{"PlotLabels", "\[Rule]", 
         RowBox[{"{", "\"\<Worker\>\"", "}"}]}]}], "]"}], " ", ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "Effort"}], "}"}]}], ",", "  ", 
      RowBox[{"Ticks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.4", ",", " ", "0.6", ",", "0.8", ",", "1"}], 
          "}"}], ",", "None"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "->", "All"}], ",", " ", 
      RowBox[{"AxesOrigin", "->", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"figurec", "=", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{"s3", ",", 
      RowBox[{"{", 
       RowBox[{"p", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"p", ",", "SidePayment"}], "}"}]}], ",", "  ", 
      RowBox[{"Ticks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "0.4", ",", " ", "0.6", ",", "0.8", ",", "1"}], 
          "}"}], ",", "None"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<FigureA2c1.pdf\>\"", ",", "figurea"}], "]"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<FigureA2c2.pdf\>\"", ",", "figureb"}], "]"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<FigureA2c3.pdf\>\"", ",", "figurec"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8250006071487293`*^9, 3.825000663534102*^9}, {
   3.8250011590157223`*^9, 3.825001290934188*^9}, {3.8250013293854647`*^9, 
   3.825001480792521*^9}, {3.825154693359891*^9, 3.8251547195622787`*^9}, {
   3.825156865569365*^9, 3.825156930443666*^9}, {3.825156983229245*^9, 
   3.825157033539537*^9}, {3.825157208167295*^9, 3.825157208738805*^9}, {
   3.825157285253274*^9, 3.825157285723156*^9}, {3.8251573405157433`*^9, 
   3.825157446512548*^9}, {3.825659826801046*^9, 3.825659827084804*^9}, {
   3.825659871387402*^9, 3.825659912417778*^9}, {3.8256605872087183`*^9, 
   3.82566059100769*^9}, {3.825662772761767*^9, 3.825662798063141*^9}, {
   3.825692742296912*^9, 3.825692867036049*^9}, {3.825692926303535*^9, 
   3.825692926893338*^9}, {3.82569302183162*^9, 3.825693094667992*^9}, {
   3.825693128679565*^9, 3.825693196412148*^9}, {3.825693228713228*^9, 
   3.825693229003981*^9}, {3.825746652425811*^9, 3.82574672397832*^9}, {
   3.8330177204732523`*^9, 3.8330177211474037`*^9}, {3.833017755175426*^9, 
   3.833017774198872*^9}, {3.833017865084395*^9, 3.8330178985569572`*^9}, {
   3.833018028380542*^9, 3.833018049368697*^9}, {3.833018080473115*^9, 
   3.833018132455996*^9}, {3.8330181678518267`*^9, 3.833018252749341*^9}, {
   3.833018306998446*^9, 3.833018347301214*^9}, {3.833018409303887*^9, 
   3.833018415717144*^9}, {3.833018458935041*^9, 3.8330185815305433`*^9}, {
   3.833018626279584*^9, 3.833018668989139*^9}, {3.833018746258168*^9, 
   3.833018915230206*^9}, {3.8330189455232286`*^9, 3.833018964470127*^9}, {
   3.833019011233707*^9, 3.833019145436626*^9}, {3.8330191869946737`*^9, 
   3.833019217903186*^9}, {3.833020671953121*^9, 3.8330206835624723`*^9}, {
   3.833020722453505*^9, 3.8330207241924973`*^9}, {3.83302723349187*^9, 
   3.833027238224247*^9}, {3.833027353104724*^9, 3.8330273886433773`*^9}, 
   3.833027441088195*^9, {3.83302747419414*^9, 3.8330275099518623`*^9}, {
   3.8330275471504908`*^9, 3.833027589796878*^9}, {3.833027697252453*^9, 
   3.8330277066975822`*^9}, {3.833459018289105*^9, 3.8334590387796803`*^9}, {
   3.833459220846558*^9, 3.83345923783922*^9}, {3.8334593197731037`*^9, 
   3.8334594739806433`*^9}, {3.833459559191622*^9, 3.83345959732568*^9}, {
   3.833459646681612*^9, 3.8334597051065693`*^9}, {3.8334597408371897`*^9, 
   3.833459770171625*^9}, {3.833459808758665*^9, 3.833459851575967*^9}, {
   3.833460244426352*^9, 3.833460309231969*^9}, {3.833460340081298*^9, 
   3.833460461353801*^9}, {3.833460654689061*^9, 3.8334606660199633`*^9}, {
   3.833461301595457*^9, 3.833461318529078*^9}, {3.8334614060845947`*^9, 
   3.833461422489956*^9}, {3.834142361425193*^9, 3.834142364577991*^9}, {
   3.835889634615635*^9, 3.8358896633364277`*^9}, {3.836220172500772*^9, 
   3.836220204197014*^9}, {3.836220270990082*^9, 3.8362202816448174`*^9}, 
   3.845116864586855*^9, {3.857733157150992*^9, 3.857733262980975*^9}, {
   3.857733300114888*^9, 3.857733327266396*^9}, {3.857734016043502*^9, 
   3.85773401827905*^9}, {3.898158159202655*^9, 3.89815825571719*^9}, {
   3.900415079763623*^9, 3.9004150804789248`*^9}, {3.923051155927773*^9, 
   3.923051158494794*^9}, {3.9230512672563868`*^9, 3.92305128136451*^9}, {
   3.9230514108724003`*^9, 3.923051526488202*^9}, {3.9241613540442657`*^9, 
   3.924161396753703*^9}, {3.924161576396798*^9, 3.924161613718562*^9}, {
   3.924162632874291*^9, 3.924162677516241*^9}, {3.924162810312146*^9, 
   3.924162836758264*^9}, {3.924163560889555*^9, 3.9241636203060083`*^9}, 
   3.924168168454041*^9, {3.924168557629277*^9, 3.924168605214774*^9}, {
   3.924168648639377*^9, 3.9241686684851418`*^9}, {3.9241686996917677`*^9, 
   3.924168706261878*^9}, 3.924168994753587*^9, {3.924169031990395*^9, 
   3.924169033700383*^9}, {3.924170257030786*^9, 3.924170324102765*^9}, {
   3.9241704317650948`*^9, 3.924170477890781*^9}, {3.924170509614862*^9, 
   3.924170620924118*^9}, 3.924170652339197*^9, {3.924170823225647*^9, 
   3.924170832898281*^9}, {3.9241708724566793`*^9, 3.9241708877559843`*^9}, {
   3.924951532088339*^9, 3.9249515807497587`*^9}, {3.924951645996585*^9, 
   3.9249516466719522`*^9}, {3.9253917282485867`*^9, 
   3.9253917664162083`*^9}, {3.925391834033823*^9, 3.92539183936406*^9}, {
   3.9265939732538137`*^9, 3.926594005429513*^9}, {3.926594062315158*^9, 
   3.926594071600297*^9}, 3.926594165555587*^9, {3.927012823105936*^9, 
   3.927012835748404*^9}, {3.937367428489596*^9, 3.937367500961515*^9}, {
   3.937367666122034*^9, 3.9373676751763487`*^9}, {3.937368019541357*^9, 
   3.937368170386546*^9}, {3.9373684814058647`*^9, 3.937368656184411*^9}, {
   3.93736869964115*^9, 3.937368768351495*^9}, {3.937368829043933*^9, 
   3.937368969296405*^9}, {3.937369021954343*^9, 3.937369061799037*^9}, {
   3.937369140963036*^9, 3.937369212340982*^9}, {3.937369271672101*^9, 
   3.93736932880437*^9}, {3.937369367110207*^9, 3.937369415434705*^9}, {
   3.937369475202889*^9, 3.937369565735811*^9}, {3.937369682347598*^9, 
   3.937369686215439*^9}, {3.9373697863801527`*^9, 3.937369826753886*^9}, {
   3.937369892125499*^9, 3.9373699731521482`*^9}, {3.937370091269497*^9, 
   3.937370107760798*^9}, {3.93737025921096*^9, 3.937370366843554*^9}, {
   3.937370440244987*^9, 3.937370504785283*^9}, {3.937370567446472*^9, 
   3.93737059826677*^9}, {3.937385951804785*^9, 3.937385952532593*^9}, {
   3.937388006739367*^9, 3.9373880092224007`*^9}, {3.937576977756969*^9, 
   3.937576978338192*^9}, {3.937577055689014*^9, 3.937577056055339*^9}, {
   3.937577091362117*^9, 3.937577132640564*^9}, {3.938148474492585*^9, 
   3.938148508439302*^9}},
 CellLabel->
  "In[685]:=",ExpressionUUID->"6b28fe39-acef-4edc-91ed-cb86cc831a6c"],

Cell[BoxData["\<\"/Users/stefanocaria/Library/CloudStorage/Dropbox/01 \
Research/Sierra Leone - CHW Project NEW/REPLICATION \
FILES/Results/Figures\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148579211699*^9},
 CellLabel->
  "Out[686]=",ExpressionUUID->"6f70443f-fc7e-4a6d-85c2-367e1c1bb64c"],

Cell[BoxData["43.14`"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.93814857921555*^9},
 CellLabel->
  "Out[687]=",ExpressionUUID->"7cfb5e8c-df10-489d-a4b4-f68e9ba6324e"],

Cell[BoxData["6.76`"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148579216219*^9},
 CellLabel->
  "Out[688]=",ExpressionUUID->"0a216d4d-99f7-4bc1-b7a7-8b75a8e3feeb"],

Cell[BoxData["169.16`"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148579216861*^9},
 CellLabel->
  "Out[689]=",ExpressionUUID->"e794133a-8249-4831-a1ba-a7b96ff20a66"],

Cell[BoxData["41690"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148579217491*^9},
 CellLabel->
  "Out[690]=",ExpressionUUID->"52ab39c0-64cb-4034-8baf-c7637c4d70bc"],

Cell[BoxData["76.41`"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148579218128*^9},
 CellLabel->
  "Out[691]=",ExpressionUUID->"99311e97-2295-4e8e-bf5a-b6a9981297e2"],

Cell[BoxData["49.9`"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.93814857921876*^9},
 CellLabel->
  "Out[692]=",ExpressionUUID->"c62fad98-8da2-4ed3-ab7b-1031f095135c"],

Cell[BoxData["3.6`"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.9381485792193947`*^9},
 CellLabel->
  "Out[693]=",ExpressionUUID->"34609e7f-58b2-498f-b48e-fc3a161b1af2"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1nk8VF8UAHBbpZRdRUmLtClCKj85T5SimUEksiXR6mctSsm+JGQpSaEo
kmRJki0hSXayjnlvxlJk1E9Eqd+Zv+bz/cy77917zrn3njUO/5qeFODj41vM
z8fH+zU8OdJS+dlcp7hMbPh5II0Q0pNzHZDVAO/vd1cbB9EI9ZTE5AJZfSje
MruPizb6+Cn/nqwZ5IdtMNsaQiMsHKfLYmUdwWDe2quZYTSiXyVU74asJzQm
XVxw9waNSJVhhETIBkFMdPmQ620a4S9csCFcNh7al5rdHHhCI45apuVOfEsH
Uf19V4fbaITIX39rg1W58D5TaWvnTxqx3mR85O31QrAuJPNer6ATFxt3Q+Lk
K0jt0XstS9CJZYUSTH7+CoiUzexJtacTRZReQ5N2FXD2ugabBtCJqjP3VliO
VUNrUoZTUxqd+KG0Ryzn/DuwuhSzu6KMTgjMZIuvWF8Pie+Kz13ooROaf+2L
Dj9rgKQMpvy7/+hEQ5BGY+3mJgh4lTelIsIgFGJGZ7LGm2FV4zd/vnUMYnR6
gNmh2gr1NrXXS3YyiPQvr+tFo9pAy5l2MvoQgxCVf8zlcNpBdGCmwdKOQUSe
fuGUqtgJ42obu0/8yyCmiGzOKb9PMGl7jW+zH4PwVKsuXPq2C/5IjEnaRDKI
gWfV11vW9EBczvY0/jsM4teZ9rubLvVC9WeKWfaQQZhp2tzc5tcLycSf9xT6
Kf9QiHpQL2iZC9xfkM4gbBOn3fZE9YL8wxo+E/SbGrkDJg964RkD8ih06Orj
k971vfD7rXo5/yMGIdX59VCdXB/Ir+wM35bJILboLvjj9LoPbh6InNr7lEE8
f5K9oauyD/QsLUsd0RrSxiYHa/sgwE/GOQStPZyYvqWlDwRvWp99j6bf2Gw0
MdQHOpdVVeg5DMK9m5boI9kPEXv2p5s+YxCv3OLVIk/3Q9/5//YbPGcQOr27
rOdc+kHa0Cn7JLpKvz/YxbMflKU6JgPR9cuUuo39+iFfIVOzEt1X9tJPJqEf
rFerXtiZxyD4FvU23K/sh++cjYOr8xmEwYM1znnLmJA00h08UIDzTRRVql3J
BL659Mqf6NVRvzg9a5igHc9lSxQyiFmfDgchZSa8axPi6KFzTMJtLQgmcBy0
6h+hpfi/mc+dYsLs/E0qp15gfuwq9Q+W4HiZfpvuIgbRYJ4jaFvBhKGhY1lc
dLFRUpV7NRO+zXfun/eSQcTu9CSSG5mgwVz3dzt6n9hGbS7FhC/ZepvC0dnl
0eoJIgPAqLy0XL2YQVyUt1tLWg8An9jHk16vGISDseqRvuMD8Ds51CEMTQ/k
j/jkNACJh2oO3EUrfX747aPrADRUf2ipRLcXjlSWBA2AtrRE56ISBqF6yN0u
/ukAdHX3P05Cj1wKTjb4PQBqV2M9sl4ziC9HtpxK42OB7p7wtFdo+wkpAQVB
FjB2S7x6jzZaN7hDTpgFnqWd6Z/Ra8ND74lLskC4Xv/fjaUMotms4dzcehbE
Zks3p6GVx8xFPtFYkN/9sTqwDONhdqgiwpgFHa1nDGLRemV7PXQOs2B8Ij83
FW0VpdKbcZQFh+QMtpehw1UXZnueYMFEVszPSfSQZ6mhpA8LdFZoJtqVYz31
5/+pucyCSyPNXufQc/uy8n2usqDn1+rdPmjpZbfkyEAWqIazXWPReq/+/ZIb
xYI0W6GMt+jUubURtHQWiMsYrF5TgfN1ktXhf8wC7SNBlsrol41i3wuzWPDC
3N97J7ox5bflylwWmO4uc6ah53Q7N42+YoGDEUPEG20VEv4+rIkFRhc8nOvQ
Q+N+V7RbWTCkOfe7Be1mcWH7RDsLbINMvHvRYRtP3LHoYcG5YOvV4+iieu3T
SoMYPxcxTclKrDexCeHqWRa0nwvyNke3lkWEHpxjgfzEBNsaHXtu/fymvyz4
uCF+lyNast5KsEeIBFN+/3vuPAfXzHFFSXgYLHQkijde3d7XS4KEpW2aIgm8
8dTs7KwUCU5e6Vl30RKE6s95siTcX6LxIBMt/ivp+4p1JJR91Qh4g27O2uGW
tp6ERF1T/3fomKPNXKWNJHxJyj39ES1WNO/r9q0kCL9WnupCi7q5DhvsJEHM
SPfPOHrx8L4+DyMSpgwtPyx9g/slgWU1QyPhkGO57Qp0pP7l7qvG+H3p870K
aJEHzzvDzUmweJwVsxG9yGZFS4odCbtSnn/Zha4XKWKsdyChyNujThsdUWLc
+MSRhLn3QdEEeuHykA8vTpOw+GBCtwFauG2i5oMHCat+XbUxR9f5X9c3uUDC
6rba4KPoMFWlt53eJORLOdw+hl4QdaySvEJCqlHChePoWu0pHedrJGwI2Kbv
iA4ZjSkbC8D/U+R/OaHnH6wtmQ7FeIrzrT/He37afveVCBKG0ydvu/Cef/Tr
pcANEh480J10Rc8T2v5iSSyJ5//wKS90df4H9bh4/L69rv9FdNBxp/zlt0mY
NZkK8EELVdzNXZdMwt5Ij71X0D3a+gcG7pNAfYtV9EPnloyxktJIMO5aMXaN
N35Xgs+RdBIYYmJ3AtBWRXskJR+TIOp8fksQWlVj6MnHLBL4n+98GMybf36U
XvhTzE+JC18ouk9lZ59+LgkyllJ6Yei8nAFPvnwSOMeUzobz1rMlbElpIQma
CZneEWjrLNVHF1+SoPop6ex1tNqGbh31EhLsJ+f0Innxz/D/NF6K8apo5b+B
Zq7d7PqkgoS1i+UyeC5IbRV2qsL45bRvjeLlY9XltDU1JBy5KJjMs23yOq3+
d/h+ncdcnjXkGloT60lw7azcGM3Ld6LnWbOPJPDJmBjwzJSRFxJvJkGp6agR
z4VxNckfWkk409OlwXOEhMuO0A4Sihe3CvJsH720cW8XCTTtfcW892suqXD6
00NCLaib8ixy3fnvq34S5o8nt/DmyxIWT/RiYX2uCtTkuSikWHU7mwTzzKFr
vPVGCh1/PzZIwuiJuue8eDgELHTIHCHBdtOmWl68dvHlz54YJYHesvANL55L
rlrFKYyTUKhxNo0Xb+qXgHLvBAntynRnXj6KfbKrb/2H+yWuQDIEHTV92MZ0
CvOzN/khL58nvH7/WDJDgp/UQrnAN7z9R9sQ/AfrP9z9Ja8+OOM/Kgh+CnzZ
rkxe/ZScu3/0tyAFMh+nvlxGnzzFDfdYSMGy8uRCXv1pDd1eq7KYAq+r5W68
+hR3JF5/EaVgEs5Ke6BL7W6OHZemYPSf04t49S1poc4wVqBg5rjYKwf0SHvv
sMhaClZ5pD2wQ5eZBl17p0iBrU+NmzX6FL0jT2czBd6DtZW8/Vi+76L01h0U
EC3v1vD2a/xbhZyRnRSQ8gK79NCndev2pWtRIHC6Qx3Q0ntkL64gKEgMNuzT
RJ/VeN290IgCjeLQCUV0ZXPH02IaBX3vBQ1Xo2XOT/g5G1NgqCUdwTtvKjLW
K9WYU/Ds7o8yCbTUshj3a/YUdKm0Tv7G8+pUwZN9KicouCm0MHAaXcaoWc48
SUGycO/0N7Rz2Gz5P2cpKF1sljCEfj3jKDLtRYGWbH5KI+/8vOXHzPCmgH6p
x6EOfVItKc/sMgVD4+mLq3jn5dkmi/xrFGRErJN+gT7Rtzv9/HUKGjgD3++g
RSpE93BSKWj6vHzCFm1/bJN43EMKtNU/yFugX0zrsXUfUWAWt1WNgbZT9QlP
yaZg0br5YoAuSGN3WBVREHtc4Y48+lhQsUvLB4zPiRJuB9432QcdUsunKHh8
h3qqjtZQXqMDMxSoGWq6bkKXi7J6K35R4FhzT14B3dxms+wNHxuMVmRrLkJP
2lhGvV3Ehpf09uMDeJ/quBv71q1iQzVz4b1gdHOSztHW/Wz42WT+9A3e35ZX
5n6YHmRDMpVUUIim7Erj2ozYcHbz4ozH6ElFraZ2YzZMeF3YfwMtm7tj/ycr
NsQ1+QVaoB3eKmv0ubDBhSU9PIz9xY9ROfGhW2xQKGu0/In9SPy94XfJd9jQ
2952eBitzij0O5zMhlJjI41OtFs+jVuZxoaqmITMAvRX72uNd5+yQWtBoe15
9OC8oUiTKjY0evIJ9GF/1KGQt7DsKxs4/yoqP8J+yrPlyhuPCTaMm/lM3URL
BRr6bP6PDXUSDo+voE2G2CO3f7IhyPy/UjP0x6dL69wFOXBuRO0lP7pmt2/I
RlkOSBkv/XwE+7sXhw0E4/U54Oj05+A49othRsXBKw04sHe4+mIX2lpvk3DG
QQ7YWQVEV6EF1EWWFNE5oJsz6HsLTZdsWtp1lAOJW5wZe9AjzUc2rzzPgbsX
FNpDsD+VozuZpCdw4A2t0mEh9q9+B4JTCoc4EJ9iVteA/XOr7Slr1c8caOQM
CuWjFb2MZJ+OcqCcClC+zeu30yTiHk5w4MZ9tvZxtPSveyGxsxyo2mXpMJnL
IDJzis67ig5C50tm5VJ0s+TIP8qag7D8QHarEfb7a/oNux4GD0I5vcD3Yhae
JzuD4mXVhmB5iaOjSCqub1XTDH/bEBQqpawaTMB81t+gXP2HgZitIVzCGUSi
kK2nqeII2I5XSbv6YryZLx4IVI+A0Pxj3e4ueH9e8Tfb7fYZVmrr7xm0wf4/
yzaXkvwCbmkZMso07A+Tcm9IVn0BSfXvVrm7cf9uCROWcBmFia80R7X12O8Y
uisHiI6BokzYxUFxvO+2Nrf5lI7BfW8JuXszdOL5fVDk2H6FzUpmii8oOmGT
qykh/+crVHrty9n6gU5cC07z73syDtHz3X19ntOJnBH5u6KHuMD3IFT10i06
EXYv2J5J54JT/uJ3gmhH06/rn5lwoUHP8OCNBDqxsrT0Oc2CC6/OTYunxtOJ
iOhjtZEOXLD1NM+pjqUTpzTvfFvkw4Wg9LkVi6LpxNog6QMLHnHBvWN8IDiU
TvzZ5bvkUyYXblVmfFuM7v7Kbn2UzQWtq5bcuBA6EWNRYLM/jwvlApXP0oLp
xN/Nph7BpVx4plazpzSQTvS1RN8XbOPCysSY+1/96ERxyPSJtg4uRE3LuHmg
4/+x2/SwiwutviUqM1fphFHGtsK9TC4cvnnaTQhd4v3xvf9nLqyVTp4v50sn
bm3dEW0yxgW1tiNaKZfphBuVbLaGywVqVNdKEb3x0LmBykkuGNbm2W67RCeE
+NvTY6bx+U4tvQIfOsF68c8Z+1kuaPT9ltqFLj3zUEV1jgulf2eaS73pxG0F
kR9//3Jh9ymNS7ro/wHCwzCG
       "]]},
     Annotation[#, "Charting`Private`Tag$44175#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["p", HoldForm], TraditionalForm], 
    FormBox["Visits", TraditionalForm]},
  AxesOrigin->{0, 59.02883613842603},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {59.0288361384259, 63.512185495723585`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.9381485792862873`*^9},
 CellLabel->
  "Out[715]=",ExpressionUUID->"ab205a7e-5cc4-41ba-bd01-c4ed958e45db"],

Cell[BoxData["\<\"Figure2.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.9381485794209557`*^9},
 CellLabel->
  "Out[716]=",ExpressionUUID->"2ff7c508-d95a-46d1-9ce6-87de9a67f2fb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"63.51218568734523`", ",", 
   RowBox[{"{", 
    RowBox[{"p", "\[Rule]", "0.5565321372626024`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148579524116*^9},
 CellLabel->
  "Out[717]=",ExpressionUUID->"907c7025-ad58-4502-af66-8a131c536f22"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], 
    AbsoluteThickness[1.6], 
    PointBox[{{38.826, 0.8419241815284607}, {39.9045, 0.764344485920218}, {
     40.983000000000004`, 0.6911402326115602}, {42.0615, 
     0.6219714683765047}, {43.14, 0.5565321372626021}, {44.2185, 
     0.4945461103582319}, {45.297, 0.4357634742378265}, {46.3755, 
     0.37995761854237153`}, {47.454, 0.3269224646520699}}]}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[Gamma]\"", TraditionalForm], 
    FormBox[
     RowBox[{"Optimal", " ", "p"}], TraditionalForm]},
  AxesOrigin->{38.64625000000009, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{38.64625000000009, 47.454}, {0, 0.8419241815284607}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148580037772*^9},
 CellLabel->
  "Out[731]=",ExpressionUUID->"4fbcf620-004d-4e18-8914-742851591e28"],

Cell[BoxData["\<\"Figure3.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148580151361*^9},
 CellLabel->
  "Out[732]=",ExpressionUUID->"25b7f40c-84d0-4488-89da-fb212a0a5ed7"],

Cell[BoxData[
 GraphicsBox[{{}, {
    TagBox[
     {RGBColor[0, 0, 1], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEf7B3OXnwiycbnABVwiOh/9OJUPheUz+HAkbHw
/B5ddihfwGHBoTs6juYsUL6Ig0b5DrF1LYxQvoSDQvjd+nK5f/YQvowDg5id
3bmFP6F8BYcNah+WbOz4CuUrOWy4E60+/+RHKF/FweHE/O1mO95A+WoODY9e
/FUufAblazgoeP+eXLLhAZSv5XAgqPXO78vXoHwdh4a+qcHe3qegfD0HhvUP
N//g2AjlGzgwnJGtarJfvx/CN3RoWHWt6cDFY1C+kUPDBYtyRv9LUL6xg4OU
0MHk5TegfBOHhh/ba+/U3tsPANbiXGI=
       "]]},
     Annotation[#, {{Labeled}, Charting`Private`Tag$46299, {1}}]& ], 
    TagBox[
     {RGBColor[1, 0.5, 0], PointSize[0.012833333333333334`], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEf7G1+vS7bXC3kABVwqOhbJ7bGHsbncLC4cmbZ
SwYYX8DBYLGjmeoBQShfxOGH0oz/P2phfAmHlh15xU+tYHwZB4HAmtTQ7wJQ
voLDl4a5LQs3w/hKDiISLXbCBTC+ikPElzjN5zowvpqDgvdywXlX+KF8DYcZ
zIH/nwXA+FoOGhKzfrw6xwfl6zgcuLnr+j0/GF/PocArrOrNBV4o38AhIM+v
3CQUxjd0CGCInHj+Ng+Ub+QQ8F784/kUGN/YYcK6ZfpOH7ihfBOHisN8lnp1
3A4AkHxNZw==
       "]]},
     Annotation[#, {{Labeled}, Charting`Private`Tag$46299, {2}}]& ]}, {{{{}, 
      GraphicsGroupBox[{
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{78., 7.500000000000018}, {21.226893483386668`, 
            3.4366093793612156`}], 
           Offset[{78., -7.499999999999982}, {21.226893483386668`, 
            3.4366093793612156`}], 
           Offset[{0., -7.5}, {21.226893483386668`, 3.4366093793612156`}], 
           Offset[{0., 7.5}, {21.226893483386668`, 3.4366093793612156`}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"Tshared - Tsupv\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineColor->RGBColor[1, 0.5, 0],
          FrontFaceColor->RGBColor[1, 0.5, 0],
          BackFaceColor->RGBColor[1, 0.5, 0],
          GraphicsColor->RGBColor[1, 0.5, 0],
          FontColor->RGBColor[1, 0.5, 0]], 
         Offset[{39., 8.659739592076221*^-15}, \
{21.226893483386668, 3.4366093793612156}], 
         ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}, 
     GraphicsGroupBox[{
       {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]]}], 
        PolygonBox[{
         Offset[{87., 6.50000000000001}, {1.7402597402597402`, 
           3.905896088676827}], 
          Offset[{87., -6.49999999999999}, {1.7402597402597402`, 
           3.905896088676827}], 
          Offset[{0., -6.50000000000001}, {1.7402597402597402`, 
           3.905896088676827}], 
          Offset[{0., 6.49999999999999}, {1.7402597402597402`, 
           3.905896088676827}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
        StyleBox[
         RotationBox["\<\"Tshared - Tworker\"\>",
          BoxRotation->0.],
         StripOnInput->False,
         LineColor->RGBColor[0, 0, 1],
         LineOpacity->1,
         FrontFaceColor->RGBColor[0, 0, 1],
         BackFaceColor->RGBColor[0, 0, 1],
         FrontFaceOpacity->1,
         BackFaceOpacity->1,
         GraphicsColor->RGBColor[0, 0, 1],
         Opacity->1,
         FontColor->RGBColor[0, 0, 1],
         FontOpacity->1], 
        Offset[{43.5, 0.}, {1.7402597402597402, 3.905896088676827}], 
        ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Years experience\"", TraditionalForm], 
    FormBox["\"\[CapitalDelta] Visits\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{All, 102}, {All, All}},
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 20.}, {-0.4764319637032557, 4.620801790383265}},
  PlotRangePadding->{{
     Scaled[0.13493331854722937`], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.0763501436446395]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148580225028*^9},
 CellLabel->
  "Out[759]=",ExpressionUUID->"7aac2561-6299-4294-8b7f-21e2a0263a14"],

Cell[BoxData["\<\"FigureA6.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148580346943*^9},
 CellLabel->
  "Out[760]=",ExpressionUUID->"95768526-c06a-4dc6-a02a-a834225715cb"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], 
    AbsoluteThickness[1.6], 
    PointBox[{{1000., 0.8799608647592635}, {1200., 0.7718946754728336}, {
     1400., 0.6948151753975499}, {1600., 0.6371018859244103}, {1800., 
     0.5922986814504113}, {2000., 0.5565321372626021}, {2200., 
     0.5273371946599775}, {2400., 0.5030705487056563}, {2600., 
     0.4825944898896836}, {2800., 0.46509646280663625`}, {3000., 
     0.4499804061022872}, {3200., 0.4367994617294612}, {3400., 
     0.4252118438970336}, {3600., 0.41495167023528406`}, {3800., 
     0.40580910260938574`}, {4000., 0.39761623975224414`}}]}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Size of payment\"", TraditionalForm], 
    FormBox[
     RowBox[{"Optimal", " ", "p"}], TraditionalForm]},
  AxesOrigin->{937.5000000000022, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{937.5000000000022, 4000.}, {0, 0.8799608647592635}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148581243639*^9},
 CellLabel->
  "Out[775]=",ExpressionUUID->"98bebcfa-0c6f-4425-9d7a-c3533e4ffcc1"],

Cell[BoxData["\<\"FigureA7.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.9381485813524237`*^9},
 CellLabel->
  "Out[776]=",ExpressionUUID->"582985bb-1950-49ad-91d5-f3eb1fcad344"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV13k4VO0bB3C0KRKhIhTRRrQhoq9osaW3EiGSpYWfKF7hbVNZElFkicqe
JUuYGcY2tqRClsgSEaKGoZRhxO+Zv871uc51Pddz7vs+5/keWTvX4458PDw8
vLw8PNyroeNwE2Pk5L4F5bt8PvzlYKGepFuvxG48zsLVXuJdz6Pj8iUOoNHk
17kxYqP69rynEqZovXFMRnCOA3OHqdJHEg7guzTMPET8WSVAL0TCA/+5Xl1K
J44XP+ofJHEXdza0IHKeg//qo6rN6HfxOKjiYRKxmd8Xvg1Wfqi1M2vLJRb8
fflmcZw/3um4q78j9mqN8GKuuweXLC+LeeJj4Z1OJhsf4PGeDClHnln48udv
uicRAeadi8838s5i6+GHgXluEaCcs9LZRdzs5zrSVRuB/x2NbQKx/AKlTGXP
x0jnX1Rzivj132Tl1uZIHJi6wbpHLPgrUnVdcAwOtC84MUIc/dlHjzL3DK0D
gqZxfLPYL2WR3HPyOeoVXs6lEn+3VF/En/UcDNXomFfEMkxv+6xt8ZB8bhb/
mtj1opoCT3c8XBOdJ1jEKx1y0lL2JGKcOZaABbM4ZZGQMz6RDL4jslotxKwu
02WJkinwfSRj3UXsb8PveEIvBds+OLl9Jc63d5WkRqTggdS4yy9ioUvafv+p
p2LaLKt65cJZ1NzusFx8/QWGbEa/mBCfXhRCoaW8wG6f9o1mxD8DdIQvNryA
xG7hM9bE60Ne1Lxbl4bkSy6pzsTXov7d/rAyDTkubWEBxDtfiiyW4s/AgKJN
awlxnXKNbf32DNg0qKCK2PaVV/ENiww0lx+NqyMOofa69WVkYPN1n21txMOM
rK7UI5n42ueTOUb87KPBqx3hL1F/dcMq6UWzUD31V+Br8Us8+tmeIkf8vjP3
XMTAS+R5dm7aTDzdu1pqSjULM0F1fLuITb8P+pd8ykL0v0fF9IkF5n1PH5bJ
gfCCqRRX4uiL5jZKh3JQyl6m50Es36pkK3IpB+zxyWYv4n3p7fZdpTlw6DZ8
50tclB5JoSnnIv7wnHQ48egJZolRQy4MW24Z5RPvXtquva8/F8r+v8RpxD5l
FWXb/+SiQlCrhU68ZEsUQ1zmFW4HmWysJJad21/d6/IK2rzeyh+IT6ZFvXNf
ngd3Rt/rEeI469vG52TzQAvILWMS9690qT+lmgf+v6bpLGLX67qN2tZ5iB2R
Mf9NfO/4aPOSrDw8D6eK8SyexYcln07MMPIwHr4ziY94VWllK7M1D8ydd+UX
ESdtim5rms3D5MG0+aXEpbO6nbHG+dB6+Gu1KPHCvG1WD2zzUWcupS1ObHh+
Tfctj3ywcyRPriZubxr97BiXD9sV0dZriWUCPtmcys1HrehqE2liB62qXsPq
fGxOdt6xjngiNbpPhZmPAPvHH+SI95y+YyfHUwCeMKdgeeIbIpe+iokVwFpP
fO9GYoFreoPTewuwXPOH2xZihWNjw1X3CxCmH7NPhVjy5mHN8wkFCPXYnrWd
WDgr/v4yWgECHhgI7iSe4T+hfKy/AH0BvHG7icfVXt6cnCqAnGP8e1XiQYdF
TVHLKZBVqhhV49aLQXPv2UNBsnsgrwZxzZhwja8JBW4/lSe5pks5rVJwoOCe
uXm7JnGuYdX5N94UqCbyZu4lTvGSKnIOpaCyaZurFvGT1H+XrUihIHywa4M2
cVhrg1UenYIVnwXquPbj25x18gMFubRSm33EPtt959iDFEx7TAxw7WrTeTSO
Q4G32AsrcOsZvCsBIlQ0P+6p5NqSHvyzfyMVL9lRkjrER4cH9fy1qKjQarHj
+sAqPN5ynIrWs2GxXGseiB56f54KyvnGaq5Vrkyou12n4oBJWA/X8vGG90TD
qXASbxnmWqIhqZOaRoVcadRXroVmZxUty6hwPtjTwPXCrWbX/7ZQYZmdmsH1
tHlOQ/wIFcvY455cj/nxrz8wT0WmXOkurgfyz17+JkaDi7JAH3f/HX30yqCt
NESv7brBdcMKMTFlHRpufldaznWVtotj00kabsfyBHPrUej8murhTAOvihmH
W7/smHX8a3xpuJayzYrrpFovi+JIGrzm/TO59Y/+3ZRh85IGX207Jrc/DzYo
zvJW0qBhWy7NtdfNz8/0R2lwMJs/xu2vS5ba+A++Qpgp9pvuIbbrCt0fuqYQ
Y98O6asTH1HXHfioV4jgtZE83PnRdYxV9bYohHvErZpd3HkOn/SXci3EazbT
hzt/cqzULfZPCjERYETjzutqaZ7/FucWQpSivU+ZWNDI4n16TSF2NL+iKBFP
pQq4jo8Xwq1vnSd33pmtDozwxUXY3yZRvom4n69MRF2qCBcZj9kKxO9t3Aqu
Hy5Cqo+oNvd9qgyuWyRrXYT6I+L664lpdDnz6itFuCIVoydDnLjq4/SyZ0Vg
520UlCS+2qCB6MkiJP6x+CrM7a8yZbCOn44db2LjhIiTQ7YHc6ToePPPGX1B
4ibjTR02B+moCXG+uoRY8Z2Yu0IkHWbD0bv+ku9P5dYwCfMMOhSShm/NEJ8K
EmAEltFxaQOdMUXsZ8C3nDlEh8u1/tU/iXtrWal56sXorNOXHyL23OR8ZMCo
GMLfUxd9JRYMGPolbluMtC/+Hb3EGoc+63gHFkPS8v2pDuLw6red6CiGPcOF
8o74cEWKUL1PCS4EC37LIu5ZL0uZe1CCQI174+nEHrfirLYnlWDVUAAzhTgB
4Wnh70rAbyBQ8pSYU3pL11KqFAH3thYFE+fQrTy/lZbiQXa94gXiQ5LtUhLN
pRCtdLa2J+72Pl5lOFQKxpJgXxvipRoGwtlCZYhRP5FgSmxPU8vwOFOGmyGz
+3SIVxeI9PDyluPKibKfYsSngzmmA6vK8c/9xmYh4kSHwXevlcphSeFP4idW
Ei8qun+qHIOTP0VnyXmo62n7WDyX3Ke9UO8nVoszT41QYWCjXJR/JrFF4Ps+
P00G2gS3Xkzmns8e+6WvHmQgSG9w71PiCmPFCAsrBoyyWl89IDb+O+crE8CA
2LroXjfiszap1mk9DBxaQdPdSXzXcG1MzAiDPH/Tpq3EqWphrUGTDIjwiv+V
JWYK+Ri5LKuAY5e4lwixZ/kRjZ1qFUjewpvLInkjeP1vsZKQCgz53N2UTkzt
13vfqFUJW1l3VWHiNn3fiZDDlZg0Z5osJv6TXbbK+HglNjNkLWZJ/lH/T+Ps
m/OVYB2swDBxoajKH8ajSnwQbD1ZTlx0QHJ93nAlmL1HU5yIS1LH3SMiqjA9
+LmJQvJYt6ByzPHnVUj5NcqXQTx7xblMOKMKOibF8s+ItTHEH1JehU7hB5r+
xGXtXU/9vldhvFss5yRxOX9tradONe7r5RZPkPxY6fR0rQWzGqrO5+xliPNH
nJ1t/lTDvzE9WoQ4+YJmsT1PDRZLv2AsJPY71255SawGgtGNw99JHtW3E3ly
R6sGBUIdMVTiRgu/NdnBNXgm13bDiLhb30V8wbbXWDhRbOpM8vDvjdorslxq
YaLhsvPOLAf7+nVrg7xqwQhhF10m9n+qf/PCnVoEmvzYYUu8SsyUtSGmFt5H
l/zSIlbjdW58Ul2L4RFJ+m8Oycdd0aGBa99A8W6plQPxbOjkCoe6N9ARtBpV
neGAbzpTeK3CW3xKuHokY4qDtfW6v6DyFjM7jK0iiXcndHx00HgLt9Rgq9vE
jgZLYrOPvIWR57FdlsRvYuwUdD3fYo8BE0uJQzUlNC/WvsXaaPd6hz8cSF3z
t6ddfAc2fQdd5DfZ37wt9UT2e1SKtnzW/cnB+7u7G15vbcSePOW5DUwO1oX9
mE4f+wD+Y2mmEQMc/Jjq7fm4vRkXxH/apXdzkPy9+K3QgxaIPR74tqGFAyHp
F6yBgVZEqSzT+fSGg+CLlHPx8m04YzY86ljGwR+dzIELN9shfbbim0IeBx47
qwtWVX1CWOQpo84UDnqzq+83yXbi9aPekagoDjhOrbFbfLqwVSVYNjWQA8X9
S+bOFXejzt4l6bM3B4cTZc+/Wt2DZVRFQ+YFDq5Kn5HrO90Lm7NUL5ziQIl5
UqD9yBdoycYWSRzmQHTFOH/1zBeEX9AQj91F/p/KY3M2xPWBs1ZCK2I9B867
izuWGvUjNjN973IBDjIN7OLL/vTjXFmMMu/vGfz+ISk8FPkV3nWL1iX0zoBy
4vCCiAMDGPvx0vph7Qxu6vs9LxgagPTukjv6uTOQ/Wz4KclvEEpeBm650TPQ
VL8bIbFzCHfntmjvvTGD0zKN07wtQ1j9hb2x3IGs/zak3833G5bIXq/X0Z9B
9EIbj+Pyw9A+E2rcpjQD0R5KIl/1MCZc9HfuFpnBouu+phqXR/DlMmvM/uc0
eNJtcvpXfof4+er1Ha3TuPIkJ2Rl5XeIiGbpzeZPo1QxkF/k0g8MiM7t73k0
DRHDK0q3hZg4R1NvVXefRve2Dy3eJUxcbF9oLvbPNHKfQX7AZhTeSepGt5Wn
YZ2jJiI9N4ortmva+wWnccsvwbc7YwwF2Qvcnn5jI2tYOlbImAW7yDEpiWo2
Ap/62faYsMBRuzXiVcWGw/FRhexjLNDVpl58qmRDqqQk94g5C7HyUTNRFWwE
hVq9DrZjQfNy5h/xcjYuqMVMLPNmwSvmvuEKOhtyd8X0l6SycD7IwmEqh425
PdeWt6exsOeZ16WTxB2jX5tTM1kYS7jvlJ/NRph5vvWhVyxcMA7d45rFxvzW
4+5+JSw4/5FQGspgo7sp9NmCFhYaJxMvN6WwUeg/Zd/ykYW4NvVYZeKIvWe2
JH1iYTm7lno/mQ2jFOUC3R4WrjV0VR1MYoPuVV/nO8JCxpMe1aJ4NiK3qYYe
Y7JAMbRkiRNf7o8zlWWxIDbQ+uTKczY2G/+vlzHJwtSLN7WKz9hYyNuaHDbF
wvpSXYPAp2x8oex1sp1hYSistGQgjo0SpySV7X9ZSIzWkNtPHLVO4Pf8PAuF
BjTvp7Fs/B+/jPOl
       "]]},
     Annotation[#, "Charting`Private`Tag$48544#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["p", HoldForm], TraditionalForm], 
    FormBox["Visits", TraditionalForm]},
  AxesOrigin->{0, 1.5379919771699961`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {1.5379919771699928`, 1.7515267462452706`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{{{0.2, 
      FormBox["0.2`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.6, 
      FormBox["0.6`", TraditionalForm]}, {0.8, 
      FormBox["0.8`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {}}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.9381485813954906`*^9},
 CellLabel->
  "Out[813]=",ExpressionUUID->"ca5a1ce0-7854-455f-846b-687b29a2a506"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4lO0XB/CxZCmEUJiytljCS5FKx1ZEXiWS9ZUlRaVFpUXFiyRSqIiU
QpYsYWYY22TfNTOWkH1JGo28yc8SvzN/Pdfnuu7rvp/nPt9zPUfB3c/Gi5tA
IHBxEQicp4XXJJ32ze5ApKZAWjJ3B/CayFwclN4FYtn/O5WB1nkVn1QobQpD
zvulCtCWrd0FL6Vtodi23LMWbe85Xx4j7QnWmmkJ39H9mvdNoqT9wchX0EOX
pwNeS1qHRUiHQHPwOv9a9K3W5zUnqCHAnHKSbUOfCB3iVnIKhfUyqyVdaKG5
S3dLk8JA7KNB/1d0QEdcAEvuAbR0JZYK8nbAsdhen7+3PYJW+8/dlugggcLt
D6TjgCJm8KgRrWr2JLzgYhw0tl+roqMZoX7f+urjgBwYyOpBK/OoZ2tcewqZ
L34qTKHr/qRqdDCega2/v/jaNXj+f892y0UmgPiTYUFzdHz/TRPSSjKk5hvZ
lKGNiA6pA3avYLJY3LAaPeWot0Yg5xUkHsxXakJvYd3wyNn5GkSHjrZ0o/3O
6m4lfHkNt2u2v51Fi3vmZaTteQP3i1S8t/F1wEmHlLyZn6kwcsbHPAzN7rNd
+0YmDQJ273z8EB3mKuB13CQNegbWtj9GF3r4yZDj0mC4Uko7ES1ywSD0ll46
fA++GJWHrg3uceQLfAdr7FUTutDOa6JIlLR3UMLzwqYPPXvfUPRs2zs4eEGZ
ZwgtH/WutlkuAzKvPjj8DX37+VWtJ1UZECgb57uE1n4vxkcUyII6gyzeLfwd
0KhR69aqlQVGczWaimi3DwGldxyyQMp68dg2dBR58OJwVhZ4jxbd0kBP0nL6
0q2y4YH7Wc8D6OTOwx/+in0PKV5tEc7o3Sf/rBstfQ+0BzHb3dAtvfmn48be
g/qeS6Ue6IXBjcT53TngrHGnwQdtOzUeVvY5BxQdu64HoNetBjmbbcmDExF3
1GLQ8WftXdUP5YF/8DvVp2jlDnU3sQt5sMvHRCEefSCz26OvPA90eTt+vUSX
ZD4jUTTygc/05O5M9PRxVpllWz7wCLFkK9C7BLsNDozkw4t7JjE09M2KjxVa
v/MhpUOYUI3mV3lOk9zyAbw3Ln2sRyusGNUMnv8AOmy9wU9ou4znzVeEC+Dx
zr13h9FJLsFHTisUwGWdynOj6BHx860ndxdA9TrKsXG0X6Bxu4FLAQxrrXJ9
Qz+wmWbw5xSA9N6fS2z0J/7PxxdpBXCKJpT2Ey1VXtXB6iiAxg2JB/9Dv90e
30VfLoCncqLnf6PLl417E48UQi/VyW4ZzVuw0+mRWyEMJQhT/6AtvDd9uedf
CCFG2lKr6G76dL9XUiGkTzKLuAQwz/c/u57MLwT1r0fnudGe+6sHLWoKwfm9
4V+86J/p8cOarEKYDA94yIfe4/yvuyKhCLxf0bL50XfELoxKSBRB281b1QLo
dbdNxhf2FUHpncM9a9Fbj/2YrH5YBL75h5JF0DJ3zfZ6pxSBKMs9cj1aNOf1
w7WUIojf4HdRFL0ocFzj2EgRVCnby4ijZ3Tf3/01XwQZwjpDHI97rqE/FybB
4tBK4gb0JxrlysAeEiQfPD0nga79IVob9DcJ7Lu4YiXRVKKP1FZPElgdjdom
hc63qPZuuEGCA4UC+RynBRBLfKNJMLNyRXMj+kX61bXr00iwQ6c9lePHHW1O
BVQSkKxlRDehQ7l35Nh9IoG3rd0ljm9qBa38b5wEG4zuNXDs59prnbREghjJ
RElpzn1G6qSAGBlq6WknOXakRs6ObCND5NXXTzi2nhw3CdtPhjbCQxrHplLw
VMWGDNeveI1zvNc0fqLFG92qSZBBa17+qXcxkAzVIlOiHCu/tniwIZYMNnpx
GzmWbnvbS84gg6KZhgTHIsvLao4VZNA5UMzHMa/qicA/TDJEE7XZnP0X7PPa
Xn8jw76RxFaOf4QKyJuuksEyei6F47HCU5e+SlCgVQnOcdwzTK2KUKVA36sA
dY7b1ktIaBhSIIbnzQjn+6sNznvR7Sggbl36iONi3zqyvy8F7gTXaHGcmyAn
sCmIAoTk8gbO/b6tD3AofUaBppT0ExzHz9GzXN9TgO/R3V5OfR4pqS1zVVHg
p7u5LccBd/uTzacpUF6fqcKp7/kc3Znv3MWgcNI4lFN/975oo+hNxaDPaOri
5MNKz3is06QYSkKynTj5MfZK3H3DoRjqynmixTh5jv0VRvQrhs5hy2JO/hTZ
6SoeL4rhIiubxcnrxs2EW3z5xVDDrJ4XRgtZOrRk1hZD3rvm/wmh59PX+c3M
FANhY/YXTt5ZHZ60WL4SsCsMrhREj3BXiOkRS0D6gEU8pz9aXC8WBZqVwLx8
phqnn6oiG9couJSA3E3DCU6/UaiK9jWXS6Cruv4ZD/qNVOfC2uQSOKiW3kNA
X2/Th/hfJWDt9GZiEftZRIM03ihAhQVV+XML6NQorcglIhVuWfROzqPpR7b3
uB6kgtMtnoZfaLVmiStbn1EhhqSy+Qe6SvWxtH0WFb5LRDiz0Ccj1tHCK6gg
27gtdgodephbmDVBhXJtyYkJ9GA9O71ArxT45OoUB9HXtvtajVmWwuweQWI/
Wuj+xH+SbqXwMCdcqA+tf6jf8EZ4KXzN3M/sQsfWNPVCTykY8N2Yb0WbfUwT
ab1ZBufWmyZS0QPyCqSVR2XwW99KoBjtfy/JSettGbi0xpwjoVMgNiO2uQzI
2kyZfPRS+T1jR2I5/COhIpKGzqM6XftaXg6ByqpHo9CHZLqJ0oxySHVa1IpA
f7lhU20xUQ7qwvyC99GC+odFc0UqQHesM/ke2oOim+X/TwW0hxw+dQW9sUhs
gIurEqbyHhjZo50jl2zHpCpB1EDK7Dj6jed4c516JRxYsDe2RqtLlpQ8PFkJ
02uWpM3QxtfcnkrmV4JxaqWVLlo3yT49TpMGBimm9eJoh/CW4dC9NAjm2rpD
BH3b32jz9YM0+JxHvSOI/nhELc7BiQbE1TXCBPSRPytBW+7TgPqWmMvC//cp
13SXjAEa3Jm15K5Bh1jIJiR8o4G0fnBFBTpd93FHxC8anPt5/mIJmiVy0/L8
2o9QT/Mi5aKvVVrpa+t+BOUt3dXx6Ej5OYmyqI+gwlU964Mmj5i0tO+vgksN
9Hh+dJd50M8osypYW3RGlQv9O7dC6ohNFWxPlChYxPlH75b+qQbvKlDzzn47
jS7eoPmbFlMFJQc71zPRJaYy8gWTVXA1nSiUhC5Ln7kSF1cNC4rRcdvQX4Q0
EmxeVUPkgebJLejly74VolnVEEoh6mxEG8CEQFQlrm9bzeRHV3T3vQydqgaX
2Tr5SZz3KgXq668Z1oCPkLP2O3SVz0tZB1YNjAVQxzejC7/5+rr+roFRR7Nn
kujUM3tLPQi1oFitc0AYHXq62/GCRC1w6aj5L+N8au4u9uLf/bXQPxkX0Itu
dwjdlBtZC1sDT4zGob+Yn5fk2VkHBy9nGvKg57YZrM85Xw+8gTaydVw4j4wY
10cE1MMPq/Mfqeiwl+Z3z/xbDxrOni55aCkJW7ZSQj30m369Fo/W5fJtf1FT
D4ROQy0fdEBffHS4bANc9jMrW4dejv613rOxAR741eubETqAeyFbVHZrExRY
NzS/WmGCbKvxf6DZBBldyZ0x6F0pPZ2e+k2QdPR1Vyja6zB/Yq5VE9z/S7nC
F92Q4L7V+FoTGO7SUtJDR++V3nu2vgmWc10OtvxhAvF2mAflbDOMFmtPsZeZ
oLvqRj6e2wKl22fJxCUmtITsaqtTbYd9CoF7FeeZIPf4+0Lmj09w986vCr1Z
JnyfHxzo1GKAVG/uU7FpJqROlTaJPGICY5m0MjjBBJHN79hjYx1gElM2oz7E
hMizpNOvlbvA/Ot3JbceJvw2zB47c7cbTijrCp+mM8Ffu6ZIqvoznGlXeuHR
yITB3JqHdIVeqIoTStpEY8KST0eiys0+iJAzlHckM0HNiH/ldOkXeBht6kZ6
zwSzNwreHzYOwHtWXVh6ChOub/5Hcdh5EKy5Q0arnjFBnWW3rttqCC4s5pIf
PWTChvUzAjWLQ7D13L6V9jtM4K1MzFNKGgb+3OhEl8tM8N1V2iNoOQIfZPKk
DnkyIfuw++uK3yNwLdVxqMOOCXPfZUQnno3C0pwLnW7GBNJxM5440zFQ2J9F
ENzDhLvmoa+KJsaAUkvJq9zBBIV+i89vQ8fBy3XIBaSZsFcvJE5aewIqn2a0
9vAzwXlL+wIXcwImnxKvSswzYK4pauRi0Ff4A+rrj44xIJ7X1d9GeRJ8ZeV0
DBgM2DBAesNdMwmjW+JjuGgMWBMYZKt/6RtUBDgMvctmACHTNW9EfApSLl23
ko9nwOUXeVHiVVPgS3iy71QwA8rVwgXELnyHuRr5bZfOMUDM4rJ6sAgL2LXF
x/ztGfBl5yfmjTIW0MQ7Z+UNGZCfDMpjrtNgEmrRSVdhgEuertjmlWm47m1C
urKBAfdCU4K+ZP0AL8I3pZRFOuRMbk4UOcKG8mylvNkROoS/DHUb+JsNwm63
2u6jPW2mt+YeY0Nd4+AoEU0sK8u3smdDsnv7zKFhOkREO9VFurMhTOPv2BeD
dDijm/Bz7Q02hDv+WIQvdFAMkTDnT2fDRH2v3b+ddFjZc1u4O4MNvdbSehvR
PdOjjPRsNvxDPSuS3UGHx/aFLoc+sGFfv+ErBpMOq6o2V0LL2DAw3nJYgUHH
LaOTeZj4vl73qsra6FAcNu/B7GRDZOwM71F03L5/VN5+ZsMVg6sGo610sEzT
KDIeYMNf78seC6KpAa2NQd/Y4BBiTrNrpsOznbujj7HYwFQ4VTjZRIdLI0m2
Cmw2DIdHJ91C7zhybpD2iw3vHDWOpTTSgZerI/XxPK7f9Iq4Cz1E2ufjtsiG
ELNtA3UNdCjzeaup9YcN10Vrnjqgn8utm1tdZcOllwEmrHo6/B+/Zaza
        "]]},
      Annotation[#, "Charting`Private`Tag$48710#1"]& ]}, {{{}, 
      GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1.0199999795918366`, 0.2778273257158253}], 
           Offset[{0, 0}, {1.0199999795918366`, 0.2778273257158253}], 
           Offset[{0., 0.}, {1.030416656462585, 0.2778273257158253}], 
           Offset[{0., 0.}, {1.030416656462585, 0.2778273257158253}], 
           Offset[{0., 0.}, {1.0408333333333333`, 0.2778273257158253}], 
           Offset[{0, 0}, {1.0608333333333333`, 0.2805277632799581}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0608333333333333`, 
            0.2805277632799581}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0608333333333333`, 
            0.2805277632799581}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0608333333333333`, 
            0.2805277632799581}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1.0199999795918366`, 0.2778273257158253}], 
           Offset[{0, 0}, {1.0199999795918366`, 0.2778273257158253}], 
           Offset[{0., 0.}, {1.030416656462585, 0.2778273257158253}], 
           Offset[{0., 0.}, {1.030416656462585, 0.2778273257158253}], 
           Offset[{0., 0.}, {1.0408333333333333`, 0.2778273257158253}], 
           Offset[{0, 0}, {1.0608333333333333`, 0.2805277632799581}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0608333333333333`, 
            0.2805277632799581}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0608333333333333`, 
            0.2805277632799581}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0608333333333333`, 
            0.2805277632799581}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{48., 6.500000000000011}, {1.0608333333333333`, 
            0.2805277632799581}], 
           Offset[{48., -6.499999999999989}, {1.0608333333333333`, 
            0.2805277632799581}], 
           Offset[{10., -6.499999999999998}, {1.0608333333333333`, 
            0.2805277632799581}], 
           Offset[{10., 6.500000000000002}, {1.0608333333333333`, 
            0.2805277632799581}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"Worker\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineOpacity->1,
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          Opacity->1,
          FontOpacity->1], 
         Offset[{29., 6.439293542825908*^-15}, \
{1.0608333333333333, 0.2805277632799581}], 
         ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV1nk41G0XB3CUJYpEihSKkEI9ohSnKGRJkeyyJlQKeSwJFSFDZR5bKnv2
dRaMLXuDMbasUbYkmjb1VtJ75q+5Ptf8rpn7Ovc539+RcfY2c+Pi4ODg5OTg
YH8aus33Nr630H6267naRAkT1upKXJsUVwMZVaGMJfQ/z5LTKsVPwNxCw98V
tFH3UMUT8XNgLfI7YVspEyxdf9Q9EneF4q7BLVbo1yr3dAnifnCCj5/AQKdv
No2MEb8L22dG95aXMSG4O6nlfM1dkEpUmapHn494w7XLNgJC7OjRXej1y9dD
aWmRIDvcW/oOHTBADFiUiob+y7stt5cz4WzCqOfp3XGwznpwUyQ6nK9SPlqc
CIzSDi2TCibs0X8YVXGNCP03LLRs0H0R3u/H2olATq3b646WXbO3UNn/P1Aq
kBoLQ7f9yVYe6EsErQgF/0r0+q+JB6ViU6CoTDNncyUTkl8H6ZJXn8J+Yt9c
N/q4pHX2hMUz4JXMejuMXrDR4OYrfgYSocZd0+gdi4EuxfvS4RFB8fpPtLeH
uhzHeDo4MPl/7iIxYZNraV7OoUwY8rTh9EdbWWeUfvqcDf3XqV83kJnAGjvH
nymRA12eHGZi6EgHPjdz3RwINj+QuQNd6eItQSHmgFHzma0qaMGrWhHBGrkQ
2OVva4puvT1iwxPyHPL07LUIaDtuApma8xxOlavUENFf7h3b6MF4DmC2oJCG
liY8b+2UyoMSga3jBeibSTdUHzblwQ3Vcynt6ANFwjySfAWQKavnvYp+qdzq
2K1aAN+5k/i5KUxwLA+g3bIugMWAniQBNIEyee1tQQF4LH2/txU931g8lmtS
CCV8Ug370U8HT5XvTyiCnvVdUU7og1Z/BKZpRfCY9FDHHd01WnaROFMEXA7a
Hy+jf05ukfxxsBi8icbbAtDnFmYja4eLgb/oSBcBLfA33E5/RykoFNlHU9DJ
HpYOe/VKYVuEwykaWnZgr6Pw1VIwlez73YDWzh9yGasrhS1ewodeoqvzE8lU
5TLwGWRtGEMvmS/WGjHKoMx/t8oKWm3dkJb2VBls0z0jxkFlQlD9i3rV72XQ
c3mRtQbNq5jUuHlHOfg0BQcJoGVWj7dMXikHl+nlRXG0RV5Sp++GCqClm+ur
odPsbxtflKkAmzfpFhroqU1Xuq0OVoCLiuN5TbR3iE6Pln0FDC2oqRxDR5st
9fEWV0Ccm7q2EZrJO2z+q7ECVEtE3pigxeqaBhYHKsB/ztnvDDpLPvlV70oF
hG6x9LNA163ojD42rgR7icReB/Tain22cY6V8PAWF68T2tB963iYXyV4Ud8o
u6CHepdeu6VVAsfjLxbu6B33hh2syiphGnZbeKBdjzZPGrZUAq24U88L/Tk3
+a3KYiVYjXhxeqMP2d1x3slBgqmHF+nX0LeEr06LipJgnK8/wgctcFN39ucR
ElxW4By4gZY7+3G++T4JnD6WdwejJUL1Nd0z8Pljcvoh6I3F6ff5qSS4tT6n
7Bb6F5+58tkpEnzgppuHoz+pF4V++0ECSxVvwm30rCt3b9IGMii+lKbeYder
keo7cYgMLnr5oxHo1o8bW8NPk0F7d9hAJLpG0lNMzpUM7t4u9ffQZYbN7h2B
ZLCWNk+OQucESFZ7xZOhUMPUORqdmnuDXyiHDIIkS8kY9IMBhm1FDRlMiZfb
2I7gUii2YJLBbIjgeJ/dL6rhq/+bJYP4TdoC294Oo6Zpv8lAC192jWXXM/af
DBCmgN+7Iz1s29TEfpnaTYG4ojhFAtp0flY38ih+z1zyZfuEGPynaEaBYjPr
ErY1TyTPdblT4NWB3mG2VXw+a1wLoUDhNYuvbMumG0aLJFDgj8DcH7bFGVmj
lDwK1K+98z+2BVdWlGzqKfDFZu8022v3nA/500+BJsGpOrZ/WpYy0t9TwF06
O4rtjxF80if+UkD7gY8u2zOVTtffiVKh0sHkI/v8I29rmmL2UME6Vi2abYaQ
qKjyMSoMiSuIst2sdcWt14IKLF6FeHY9qrzaKH5eVAi2VPvFrl9JihTf1nAq
+K4zsWA7qz3AmpZIhaUdPuns+icv9xY4FFFhQ0rWGPt+4nYprXA2UUE68C0P
2wGhr58aLFGBdO32Pvb9XilW//SBqwr0788qsO/feSz+ePzWKlgSthC9izbR
0JkZ1K0Cqqc1jd1POm6PDwZaV0H9sY/+Yex+TvgWKeldBdkx8TtD0TtZuYou
qVWwePvHqZvoLds5gnnKqoBPvb41CL3eyLorv7UKblx8uD8Q/SNXwPvTpypo
OWU/wu73xQHXxgSealDnOr/Zjz3/XPXCGpLVwK9re5w9H10O10gh+tWw0/O+
x1V0U+xLbhn7anhxnuJ2GU2t2WnZ4lMNd4aXznqiM8UGf/I/rQab/Nu/3ND/
Mg5D8rdqOPJON9aOfb/K5NmXfDXQW6CrZoPOJqjG/pasAcUvDgxLdK+x/IjD
yRrYJDE/bIZW6hT1lUusAYraSX0D9v/veSBuWVADbcEyYSfRVjECjVH1NRDu
Kl6ow+73U1wbFudqwEPJbugoerKdlVuhQYO7PMrRqmh/eS+TGSMaTPS+M9vH
rs+9ua+bHWnAdKoT3IM+rPf6WGAUDbymaHa70Akt9FEYocFjFo/ZZrT+ixzB
7qBa2NgykvEd83hCWoa8GlcLy5pmhC9ov7A0W9WsWrDvnPP8iM6AhLyEzlpI
PuO6Mov+XRemYyNZB7+SywMG0KU1tv7v6urgTkvqqxK0nsSQpHhfHfR3Dk3n
o8cDzZoN5+og2WL/dDZ63eFTG0sE6yFgg2ZVKtqFql7gd6Ee3r7OpEWgt5CE
Jzg5G0CvbljeGm0X+/vcjFgDWLsljZihM11nO9v2NsDwBE+wMXrv5urq+1YN
4HX9f7GA1vF3/G9zWQMYGMovyaLV0yxziSqN0MSse7qI71vrqK63EZqN0D4e
ZzTLfj/7Hd/+78lGEPUTnn+NfmGsRLS2bQSGv9InBtr4z2r4jnuN4HuAdLQM
7eSQa5830Qh9ArLt3ui7httSUt43gtJ7EW93dK76g4GYb41wXp7CcwG9KBhk
dIX/BRj9FeY+jfZvMDl8QP0FLFUqaCuhY6WXRWsJLyDo6GTGFO4vlCndrp6j
TfDv6ITKSfQrg/DPBP0mqGoeXNVEfy+pFzM2a4I+5pZ6VbRG8GGnDvcmqE8J
2SCJrhJR+d74qAkONfWyPuO+VH1CQrpivgls0wubUtG1uZ98icRm6PPMzniD
+9n4euUUs2fNoK61M2gAveLjVb+xoBlaQpZ0OtBaMMdHaGiGsymXc0rR9UNj
TyIWmuGTt1BJCLqBr73d/1gLfE772S2GbvJ8ss16sQUU9JcNtHCfrHzv5eXw
vQUaFHJ3qKKzL2nSXDhaQbGvbG4nOuLikM1V0VaYaO834UMbOAun3jnaCjvN
zAL6cF/tsY7YWhLbCnF1Otqu6HGDK5vX7GsDkfbguBDch5d3awkVX2mHQ1tm
T9wrxn1kSqc9JqAdbpmKGt1ARz4xCL10px0m5LSOu6DFRM+xdqW0A1Pu5h9t
tDqnV09qSztotFWQl4sw78aS46O2dcCR0O1yjuiV+G9Cri87IGtNG4diIRO4
fhZu3CZHh8rx7IqYPCZs69b5Cip0IAYlKPuj1TJGBl0P0+GB0KM0J7TbKd7H
JSZ0WE5sOH0I3ZHiLKfjT4c7lyYFZp8zIV5TXNOjnQ4bmozfH0FL3ox0oXp0
woVB6v7JHDzfX0eKeUkX5LhN/P2diXl2V43RtqcHvv+v2bQ8jQlSDz78zP/I
hHei5OBFIhM+/JicGFTtg16GD2dnLNZ7gUYXjOuHy1kBt7jvYH5tf86amRmA
dUZT4f4B2H8e5Ivpsq/gXVvq7Isr2F/HCmcuhQ7BJemhBnUnzIMDLSSx5mGQ
eqFNzDyHeVTScr9XZhTyVfalC+lhHngOPFYMGgPxC7zR3eqYd8d5Vy/SxoFh
ytVRLY95kynjXr5lAp5r/z79rxjm6fYLO9/aTYKxlQl3GDfO76KFwJDJG/CO
9yXsnu8BEaFPfC2/3kBx3+3s/xp7YG3D49JdaW+BEHhkK09qD3ip0Ubw7FC3
K0vN/2oPFJ5yTq//PgX9P9Z9+HC8B5Y/SGycS5wGmaRNzj1iPUA2119DPDED
q+48t+3nGBBqEPGMNDcDFqYnNj6iMkDmteFwVsQsCFmOxWtFMUBT4y5R/MAc
PCHxip00Z4Ddjp6fnP1zYOoioGojzYBlOmHqWvg7uHe4nXT/XTckr3XwM5Od
hy26R7K4yrtBZIKcydUyD4phcGlPUDdwh4SfO3z9Paw9RGyQ1+oGjnyH0qlN
C2Ak2/GKwdUNPqmlhE1NC9DWeMJwU1MX1ClF8Qlf/QC9Ti5ja8K7QNjQZ+9t
wUWw8iVvX6PbBeP7mP2BtYvQr/A17MJqJ5Q9BdkZhyXgc9p3aLW2E+xL1YW3
ry6BNe+gBSm4E8IiMsLHCz4Cb3qLQfw/nVA8v/2xoDELJNaKbVrHokPUkwjH
idMsOFP85NbAEh1czZbkSs6yoKIueODZIh0ka2vLTCxZcGNF96j6Ah1i4m3b
Yp1Z4Gupu+I0S4dL6imf+QNZsKz3GchjdNh5V9SAN5cFBc/LZw076LB66OaG
oTwWcB61CRfBPh9Zmu7LLWRBTH86z3grzollpb1eOQtaBYQZl5vp8HePmW9E
LQuE82rPEOrpMN4b/3RNPwuIjofl6SQ6VEX+cOkfZMHnIKb9w0qcuyMXFLOG
WVBWqHjLqoIORjnKJJ0JFoTZKt2cK6VDTUD3y/D3LJg2KrzCWUiHxH0H488u
smDI+9GX9nw6XJ9KOyfDYgFvq4lTXB4dFIwvTzZ+YwFLxHBFIpcOazkHsh/8
wN9LjFd4m02HN+Qjno6/WMBvV6H9PIsOtZ5ZKqp/WOCaT9K+kkmHJCmB5b9/
WZDZnKzwTwYd/g9bBi2Q
        "]]},
      Annotation[#, "Charting`Private`Tag$48894#1"]& ]}, {{{}, 
      GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1.0199999795918366`, 0.20804442865622003`}], 
           Offset[{0, 0}, {1.0199999795918366`, 0.20804442865622003`}], 
           Offset[{0., 0.}, {1.030416656462585, 0.20804442865622003`}], 
           Offset[{0., 0.}, {1.030416656462585, 0.20804442865622003`}], 
           Offset[{0., 0.}, {1.0408333333333333`, 0.20804442865622003`}], 
           Offset[{0, 0}, {1.0608333333333333`, 0.21101070123792645`}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0608333333333333`, 
            0.21101070123792645`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0608333333333333`, 
            0.21101070123792645`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0608333333333333`, 
            0.21101070123792645`}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1.0199999795918366`, 0.20804442865622003`}], 
           Offset[{0, 0}, {1.0199999795918366`, 0.20804442865622003`}], 
           Offset[{0., 0.}, {1.030416656462585, 0.20804442865622003`}], 
           Offset[{0., 0.}, {1.030416656462585, 0.20804442865622003`}], 
           Offset[{0., 0.}, {1.0408333333333333`, 0.20804442865622003`}], 
           Offset[{0, 0}, {1.0608333333333333`, 0.21101070123792645`}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0608333333333333`, 
            0.21101070123792645`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0608333333333333`, 
            0.21101070123792645`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0608333333333333`, 
            0.21101070123792645`}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{63., 7.500000000000014}, {1.0608333333333333`, 
            0.21101070123792645`}], 
           Offset[{63., -7.499999999999986}, {1.0608333333333333`, 
            0.21101070123792645`}], 
           Offset[{10., -7.499999999999998}, {1.0608333333333333`, 
            0.21101070123792645`}], 
           Offset[{10., 7.500000000000002}, {1.0608333333333333`, 
            0.21101070123792645`}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"Supervisor\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineOpacity->1,
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          Opacity->1,
          FontOpacity->1], 
         Offset[{36.5, 8.104628079763643*^-15}, \
{1.0608333333333333, 0.21101070123792645}], 
         ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["p", TraditionalForm], 
    FormBox["Effort", TraditionalForm]},
  AxesOrigin->{0, 0.2},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{All, 66.4}, {All, All}},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->False,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.08090169943749476]}},
  Ticks->{{{0.2, 
      FormBox["0.2`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.6, 
      FormBox["0.6`", TraditionalForm]}, {0.8, 
      FormBox["0.8`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, None}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148581490451*^9},
 CellLabel->
  "Out[816]=",ExpressionUUID->"f9b5183c-2aef-44cf-a0e7-42225dbb4ecd"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVxX081HccAHAXRuRZtfOQ6RB6YGXXRPt8PSxFlqhdNqQ8VFLS/WhH0ZkL
4SJWlPNw5KGLK87NY74vTK+sRJRIJ+eS559WSL102/54v96mRyO8Q1YoKCh4
/uf/3UPGe/DEwR+UxCQr+Q4fK7kYnBmm2kGrG7PfpoKPtxXk5NVQXUFjOaSx
/xYfezzur+ZRD8BnL4M1VgV8zAhebL5KDYYc8NB7msnHr2ySXNKpBNzj+ejs
PMfHhav3XbpMTQQjL2vnaGc+ZqvWbEihZoNyaOuD04NF+JBvkXDuXQmwRN+k
5MkLsbqc7ee2TggPiQvc7Q6F2Hz/7Hhbqgg8M1tSAhUL8Lkue8j5UA+6fx3Z
LI7n4bUiHQmF0gLpbjFVVFoeFktdHj1xbIUteoYGMvEN3BrGM/SdbgfHCBtL
RkAunrfYqVV56gEE3s/CCxty8IolgbaheSfc1i+z7JJew3R5oNin6hEYe7lW
nWr+Az9KtOvqsH4Ctjyn7jel2dgkY2qpYrYb1OTTbgEJWXhqcVjyzPYp1K38
mtCNuYpLJhs7Nbm9UJV+oTQrOBNrGpeRMlkf0EbKivv8MnDaidrQQrPnkNat
HhE/xMULSCA7Ht8PkbxoI/+xNExsbRetaXsBIbqjrr+bpOLhqvbUHtNBUE7a
16/hlII/h/XdtIp5CetF0c+BlYQ3Oql8CW0cgi3hodrvX3KwG9/02L21EtAK
HUeelon4nPHh9SN+w+CnlWXTkZeAN00fVO/3fA3l+he9jGhsrKc1p9r+6TVY
nHzmzbGMx0otN4W0vBG485XFEZHPeXzSrnFgpYcULGQmk2U/s7Bgz9HC+wtS
sC2LpSTFRuP5KQPtsWuj0PnZ1rFeysS1Pm6K2a4yqBGf3dBGi8TxuzkFojEZ
LOauSyx3O4VNX7m/KOa8gegIniAk7jjesT0xm7p1DOh0Z++C8CDst+7JEqV3
DBSMagb1eP54vjNdeob9FuQ6lQzBcx+coxRAeJuNQ5azmmL5wI9YT1LLX9E+
DsOccolcjYaVL7AP2EdOwKrJFkeueAdSqAgQSnUn4Wq9S0qM1BOdvSFM122d
hAdBXTEXqxmoeWOyqs7pKThUb/bed1Ug0nE/uylBcxrMGHNp3JEgNLS5u5fV
NA1qjXvacv45hu7mg5ksYAaabUYaqitOIn8hXcf4ywy87VBh2TlEoIucIvbQ
7Vn4OFrRPJYQiSrHjW9q7iWhcrvV2rAfmCiZxwmU/ERCS0dtuO4uJgr2njGv
2k9CXJm1foMnExk1Nd31ZJBwmGrtq+LPRJev/NqRdpQE/keV+7mxTHScnvtO
jUVC+zJTJb+OidYn6u9WKSUhtmbA3nwrgb58f16jv5wEh2WNpT/tCTQwM/q0
VEBC3R1VDXcnAmUwavx33SMheU6wLdyLQHJrbyaniYRUfbO48tMEGuq5kq/Y
S0KanGdIERCo7tJiUO8zEt6F93ybUk2gbIfDVsUvSJCBXb52A4E8bm0ROUtI
YPw9wjJ+SKCG3x4/ZE+QUM/dBzZvCXRt83dX9k+TYP5L5MrqWQJFSvMOmJIk
ZHKjrO0WCGS5N3wYfyCh5ERcJF05CilR+koyFkn4VCS8Ll4VhV7XOoQFfiKh
NdRoNV0/CjWFFdvYLpOgtzg4ITKMQtdN1OflchKoXMqabbQo9C/b0WYL
       "]]},
     Annotation[#, "Charting`Private`Tag$49087#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["p", HoldForm], TraditionalForm], 
    FormBox["SidePayment", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {-2390.2665553006827`, 338.19997215850304`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{{{0.2, 
      FormBox["0.2`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.6, 
      FormBox["0.6`", TraditionalForm]}, {0.8, 
      FormBox["0.8`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {}}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148581508601*^9},
 CellLabel->
  "Out[817]=",ExpressionUUID->"497a28e2-6b9c-4e9a-b49d-632971dc0e15"],

Cell[BoxData["\<\"FigureA2a1.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148581683476*^9},
 CellLabel->
  "Out[818]=",ExpressionUUID->"2cbf27ee-2ce5-4138-a5c9-cfe09fdd9fb8"],

Cell[BoxData["\<\"FigureA2a2.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.9381485819871264`*^9},
 CellLabel->
  "Out[819]=",ExpressionUUID->"7b421193-5b17-43a8-b8a2-f1247c2477b6"],

Cell[BoxData["\<\"FigureA2a3.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.9381485821140738`*^9},
 CellLabel->
  "Out[820]=",ExpressionUUID->"471224db-5919-4fb5-8c78-592992be2a89"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVzH840wkAx3Fbk19PDP2awiP0S10q6Uj7VKt0NJdfuR7C4yRUJ1HK5UIW
wtFS6Yz8uu5E6PyoCyU5lYeSrahb1AzbjO+Gje964ro/3s/rv7dVSJTXEaqW
lhb7a//rdkTyukXqyzzdGBG0/aIYNJbZyQGGAyLSA0asOWJsvpXHq2XsBpfZ
laifKoZ7V+9fBQwfPLZdJ+m9LIZf6HQzlxGKg8GatBiuGB82pLKyGLFYXlZp
WlUsRtGi7y9dZqQglG/oY98iRpJu7ap0Ri6mC30bIr6I8cOh4mqFsgwxG9dE
mF8cgsFcUoCrRTW4ekfcV1KGYes5LnmaUYcD4byHfQnDiHvphLypvxGcrN0e
Nn8ES+qM+ymUx5j3ef82k9QRNIhYna9cWjGkszpqwFSC1siCZYfkbViq7yxN
vCWBauV2o7snnuF+2OkzNGspqGQFfZltB1w8lj/XqZXCcS64wbuqE/ZPkuO7
nWXoTHF42b72FYoe1dMdnshgmTNKlo93o2Lx1GSczyhGpwf639j3gFZoJ2AN
jKJM1thh+CsfdfG7onfEyWFo/gchFgsQlhoUrW84hsyI+rAim7dQ+0pbzXhj
UO+oEIdf6AVze43r863jiN3UVrf4aR+kP8dl8jrGMVDVlvHa6j2epb6Xhh0j
8DlSkL8m/l9s1C8XJGorYLdTZzasUYhsBzvWowMKuJZYHb23pB8+yU2jm0oV
iDMPWvEpYABboiJa5isVWCf3Nehlf0THhhqqFVMJUyOFbpvmIypN0ytruErQ
HudXW/M+weSwW3K8SIljDo3v9NxFCKS0l445TaDiu5CiR2oRKCcm2S9yJqAa
NaMPXx/Ek2Kuy33RBOq9Xefl7hbDzk9n8TWXSVzYx7lVNyzGVTcmTl2ZhNUH
t75SzhB0s+z1uUOTcN6aksvYNIzrcYvUsp1TCLB4RVL4wxAWuZsxbk5B1ZEl
Opk0gqtydXrzzBTyaIGxXjYSHKRpP1zhrYJpf30JtU2ChC77nM5KFbQTknyc
oqXgxPq/YxqpoVUeWC0ykSHzrlDFOq7Gqd+qs0xaZbD4MrP5YI8azXZpusY/
jSIkq1lfuHUaxm6n1iUbynGbfNDdemMawvXd/HNNclj352ktosygphA24sAx
aFKammpCZ3C42tHYfHYMeUbPPa48m0EipzhJeGcctKPXCuBA4q7EPN9wPwHG
2aVsaj6JtAJOcL8HAe+sbNtuHolQrzHbKk8CFiWZSwsLSSz/umX7ERDQrT2c
S0hczvZvzwwhMJ+qNxNTTiLc8aZS/xyB4F2affL7JFakLNync5tA21yGUiEg
Mfvt+QW9fxJI9H9q2fqWxLuxwZ7bFQRMM/jhV/tI5PjVHt57j0DM2zR3RyGJ
ubVeMZwmAlZ7c7wTBkkIX2cXzuMTkH0KOEmfIPHg0vSP/DcEqkP82YOTJHK3
Ba0p7SNgWRywp0FFwv33b+p29RNY9SH6UgBJ4uHZrhdJUgK29I3sO1oaXF+/
JdtTTmChczb1F6oG0SKejxVB4I2jNt+TpsHq/ccHWqYI9Dix/iF1NKBRBGU5
0wQi0+kjXXoafKzfFhmsIXCBqWVTYqBBU2TpBvsvBIpmF54/s0CDG5YGqrk5
AuVRnoSbkQb/AZ98cd0=
       "]]},
     Annotation[#, "Charting`Private`Tag$49382#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["p", HoldForm], TraditionalForm], 
    FormBox["Visits", TraditionalForm]},
  AxesOrigin->{0, 0.6410204757247444},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {0.641020475724743, 1.6287335728038477`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{{{0.2, 
      FormBox["0.2`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.6, 
      FormBox["0.6`", TraditionalForm]}, {0.8, 
      FormBox["0.8`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {}}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148582154957*^9},
 CellLabel->
  "Out[857]=",ExpressionUUID->"aa05dc8c-efa0-4137-ad0a-a332bb1b9ebb"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV0Hk41HkAx/FRk+zOs1OTrnGVojZlFa2ytX1WZpskeUgPPSGLVNrNkSfH
biutwYaoJDdFyVozhLZcozGJcc38xtHBDBoa5zdbeFSy7R/v5/X/29DL3+nE
AhqNZv+5/z1wQi2rGz6yZzXjEBFKa0G30QlQsrcjPP31P3HyWljkpGaWsTlQ
vLVJcemqhV1r9/0stjOkjdxk8rIWLj4zNdfYPuhwS7yx9nUtes1ibBLYwegP
flQcPVeL3BUO0ZfZUbAPcLHyNhEiUqts45/sZPBYapV7lBCuR28J3kzmwzuO
aDsZ1YExH+nGNRDATCvQqORiHYwdJ9T1ceVgWC+bJC/rENJmhdR3j1Bku9G8
HI+xqpyl0NAQYsek9duErMd4MGDT0r5bBAdN2ubldBFEflm6R8fEmNNrNrt6
WoSpDd8vKf7lKR5OCGI/NoqwYLZoqa6xBGzdtrj92+phOe/54DC/BSYsVoj/
9Xq0RG1vazBpByv6iqvvu3qsSRqdLZyQwvNc76UgDzFGZ5SKzq0UFEG8FeYi
MfJHqiTMK3JMO+xJNDd7AqZ+AVGpOhBy8fdHOhlPEH+6wjfXqAul8btb42kN
mP6hSHUqohtvbFppYf4NCDYXl6+sfwbX6KnsF90NUPLFcTLDF7AqeU8btH2K
D34dGZvCXyLYhsuQVT7FZuvFn3yreqBXE7p8sXEjuLcNT5auUsD0nIn9+rRG
hOgfX9fvpkRa+B6jYM0mbBk7wui274MX54jq16AmaC95oyV+34fR2Qnde+om
0IUZgvWZ/cgSJ1T1uEhwZnvV8y/sBnC+2i3qtEzy+btXbu30AJr2Nj+X2DZj
alRn6VDKK6R3Pu5eVNWMisPchckcFYStrmd7LVsQsZ+XUz6kQtCpPFFIUQsM
ew88y+MNYi53g/ShQSu+2xGVzDYfQvLIjyt7MlvhZtA+qyEfQsx04c5r2m2Y
kiQMBES+RjZz3s/nRhtS6R7BTkZq9JzoPV66pB3aiorbC8Rq5IT3VWbHtmPR
hUhnq8BhcLi6yjBNKWiFHoKBZSNItC7zbuRIEZQuSFgmGkHpwNyGkVgpajbH
arHOjqLyvlTDv0UK1oGgLZeYY1AUWPd9ZMjQYyqVh1WPoWuq7N8YRxlKsmGk
8hiHC995mHldBneBJUv/0zjSL5hWKuQyXOTdiuz5awINg538Lh0KxWr9DOZB
Ar8zZpl8dwqxWTxPxSECDokLfuFBwcdp3JjvSHBVyTiq6UlBr7q6xN6FYNg5
bJ+HF4XLicca4r0IWPWGZcyTFE5Zpk1+GUYQGuHVERhAYV3U8v2L7xLoKs/v
tv6Dwqedv33VfY+Aa9CbfjaKwvPxV9TdIgJBYOSiTB6FJJcy932lBMdKYuan
YyjMmzid41UTJC29HV0cT6FHlpi9UE6wtkHSr5dC4WH0jLe8kyBmUwjd7iaF
5F3HN+U9I/h7tb9FWCoFuzvflO9VEDh+4DzoTKdQGdraFDlMYBeR65CYQyHF
9NtExzECy/G6jppcCoEDmc6GhCCtyMJ37BaFrw/+rKx7RzBxQZtvm0+BrtGR
nzRDYMG55BN6h0JfxS4/z/cE8cJ9GwvuUqj2yzPbOkfg1fTTdGcBhZtrGFPz
8wTbdnXI6IUU/gNh2npi
        "]]},
      Annotation[#, "Charting`Private`Tag$49548#1"]& ]}, {{{}, 
      GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1.02, 0.29156609049907717`}], 
           Offset[{0, 0}, {1.02, 0.29156609049907717`}], 
           Offset[{0., 0.}, {1.0304166666666665`, 0.29156609049907717`}], 
           Offset[{0., 0.}, {1.0304166666666665`, 0.29156609049907717`}], 
           Offset[{0., 0.}, {1.0408333333333333`, 0.29156609049907717`}], 
           Offset[{0, 0}, {1.0636561872683035`, 0.2901163292696975}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0636561872683035`, 
            0.2901163292696975}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0636561872683035`, 
            0.2901163292696975}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0636561872683035`, 
            0.2901163292696975}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1.02, 0.29156609049907717`}], 
           Offset[{0, 0}, {1.02, 0.29156609049907717`}], 
           Offset[{0., 0.}, {1.0304166666666665`, 0.29156609049907717`}], 
           Offset[{0., 0.}, {1.0304166666666665`, 0.29156609049907717`}], 
           Offset[{0., 0.}, {1.0408333333333333`, 0.29156609049907717`}], 
           Offset[{0, 0}, {1.0636561872683035`, 0.2901163292696975}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0636561872683035`, 
            0.2901163292696975}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0636561872683035`, 
            0.2901163292696975}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0636561872683035`, 
            0.2901163292696975}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{48., 6.500000000000011}, {1.0636561872683035`, 
            0.2901163292696975}], 
           Offset[{48., -6.499999999999989}, {1.0636561872683035`, 
            0.2901163292696975}], 
           Offset[{10., -6.499999999999998}, {1.0636561872683035`, 
            0.2901163292696975}], 
           Offset[{10., 6.500000000000002}, {1.0636561872683035`, 
            0.2901163292696975}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"Worker\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineOpacity->1,
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          Opacity->1,
          FontOpacity->1], 
         Offset[{29., 6.439293542825908*^-15}, \
{1.0636561872683035, 0.2901163292696975}], 
         ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVjXk41HkAh50PpRU6x9UKK1fZakXZPlu0yrFFrHJlyxFKimeVzdYUJdUy
pQnjGI1omjKOGb8tU46mcx2J0JJjDA2Gr1qyVKz9433e/97XaP8RzxAlBQUF
9zn+t0uIrKl60HuzUTyzdp4hAyqOutHdtPWImfQR6hsxsC4vI7uc5oSePUdV
bEwYcK1vK8uheaGXJ6Z8LBjwCZ58cIUWjCM9rBieLQNv15x3vEyLxfiC09uC
dzLAXrLzXAotEVZH6hP06AzQ1cvNLtDSoRuvnpffz8Cevfn8sfcFiP630e6m
+Ao0Zun+zoZ8DJU0jm1gXYWpx6js0UUBIvN0WOyYdMQ12CNj/B4+iwbtHUOu
YZlAu0tRsQrOFoeZe9yZqJA41jU61MLpeL6e2a7rqI3I0dsrF0PJ162syjsD
E998v/Du4aeIvzYUztyVCaUpnpae6QsIE9bONz+YBdvZoIrdxXUw8L316kAs
C3WJ6xueWDSik6Mw7HAmGyvShqe4oy/RejY+oac4B8OT3V2vbV5B341bJG3I
RcFQ5QvNP5qxwK5FWaDGhqZBEZFKW2D3bbzSTi4bl8KFoWyTVozmSMZljvn4
+ANPevBUG3zTZorekXzErhULlj5qh/PJ3Xqp6TfQXSy+2GT0NwyfjfqmuHLw
KaKFZR7fgUBxtblUuQCWW9RmQis7wfD2WGoqKIDzDaOw0mVdMHQV9U7H3USc
wb6Vvf7dSL+4pWHvukJYyb012tx7kPZ4X6QfKcSihWPq4ukeLK+PythYXQSV
KhbfOLsXkR0Z5q3nbyFyfeWbea4S3AvQ1AsK4YK3Yz/74UcJNt//Jcze6TYm
hnW1Bph9CG9f0fR+OQ/C3c7K6U5SCIuSbNVU7+DU9qQ8wYAU6t5BkWkDd2D0
1qWdk9QP7um/frvy7C42bkhMp60dwKrRHv3wR8XwN2ycUmwegLHm2bHnZXxM
vLgsiaa/wxorE45eYAkyVAJjPU1k2GHJWP22swSLuoQ3lMQypPSrfHjtVwrV
BLqX/dFBfDZjanBkpVDgBvIlOkNgJldOf4oqw7Es/mWd2iFw2TXHW5TL8cAy
WV07ahj0QrUEj8xyaLscszqjKYdqlfWSJjMBOq1fNp8QyTHrpUUqHgtQkgsT
aeAIqtp9lwT4CxHAt9U2mBmBPGZ8q/E/QpxOyqd33h5FQ/LyAoesCtyVGbA0
3QiWGbQcSrKnkJyTFNT1E4FNyLSBlwOFYM8R02IPglbeuJYxKOiLRCXuPgS+
YSdENU4UUlL9nlzaT/BQx8NCaReFg7aZ7+efIAhlF4akhlJYmbh4u1ohga1f
1O8dVynM2J38qu0WwVRNf0wZk8Kbkb5XhTyCD3nNvAuZFNJ8ygN+LCVYbGPW
Z5dHYdbCMyZJRGBZ6xCddZtCZ1NqrnIzgatTtnpEDYU/z00eaH5NwNHqNdsm
ppC+aZ85p52gbtvoha+fUnC9uVqwtYuAHffr0vY6CveP1z+nDxKEkXoPl3YK
TOvvUj3kc7+J/vNmHRSOSrK9jAiBYQpRUO2isMrtUHf1OAFvZriyuo+CimJL
QdokAcN68EvuAIUe4aaIoGmCaynyMwmDFEQRnDU2XwjyNn9y8ZdTuL5CY2J2
dq4fo/vzJkLhP7jmaeE=
        "]]},
      Annotation[#, "Charting`Private`Tag$49731#1"]& ]}, {{{}, 
      GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1.02, 0.0934941373074703}], 
           Offset[{0, 0}, {1.02, 0.0934941373074703}], 
           Offset[{0., 0.}, {1.0304166666666665`, 0.0934941373074703}], 
           Offset[{0., 0.}, {1.0304166666666665`, 0.0934941373074703}], 
           Offset[{0., 0.}, {1.0408333333333333`, 0.0934941373074703}], 
           Offset[{0, 0}, {1.0698362957633882`, 0.09142044927098979}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0698362957633882`, 
            0.09142044927098979}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0698362957633882`, 
            0.09142044927098979}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0698362957633882`, 
            0.09142044927098979}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1.02, 0.0934941373074703}], 
           Offset[{0, 0}, {1.02, 0.0934941373074703}], 
           Offset[{0., 0.}, {1.0304166666666665`, 0.0934941373074703}], 
           Offset[{0., 0.}, {1.0304166666666665`, 0.0934941373074703}], 
           Offset[{0., 0.}, {1.0408333333333333`, 0.0934941373074703}], 
           Offset[{0, 0}, {1.0698362957633882`, 0.09142044927098979}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0698362957633882`, 
            0.09142044927098979}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0698362957633882`, 
            0.09142044927098979}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0698362957633882`, 
            0.09142044927098979}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{63., 7.500000000000014}, {1.0698362957633882`, 
            0.09142044927098979}], 
           Offset[{63., -7.499999999999986}, {1.0698362957633882`, 
            0.09142044927098979}], 
           Offset[{10., -7.499999999999998}, {1.0698362957633882`, 
            0.09142044927098979}], 
           Offset[{10., 7.500000000000002}, {1.0698362957633882`, 
            0.09142044927098979}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"Supervisor\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineOpacity->1,
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          Opacity->1,
          FontOpacity->1], 
         Offset[{36.5, 8.104628079763643*^-15}, \
{1.0698362957633882, 0.09142044927098979}], 
         ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["p", TraditionalForm], 
    FormBox["Effort", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{All, 67.41622741658924}, {All, All}},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->False,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.08090169943749476]}},
  Ticks->{{{0.2, 
      FormBox["0.2`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.6, 
      FormBox["0.6`", TraditionalForm]}, {0.8, 
      FormBox["0.8`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, None}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.93814858224088*^9},
 CellLabel->
  "Out[860]=",ExpressionUUID->"386c6edc-eb32-4526-9ef1-286235c9d5b4"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVznk4lAkcwHHGlOSJlGrHhJ2iSNGWSrX1+7VaYx2JlK1cOTOlMLYilomh
HHmfsiVH7rATU5jpMHhXumxhQkpuk4zrTTlKxbZ/fJ/vvx+Wx0kHb5qCgoLt
9/6/lfeAlJTv3xlmvndocpZL0s21AroYpnCRHmxA/8QlN2ampJcxdsOuabU0
jfdc0vp5a2kGwxH6luT8uK6bSzp5TVVeYniBUJNW7ENyyQ6TWPNERjBM/iN9
0hfJJbOW2MXEMaJhten0tzk0LsmbV7b6AiMZTMU6cjk9iPz9YLbw/Vge0JVO
RfY/PEmqzvKc2TpC4Mb4F1tKj5H69qMDD+LLoTnvsu2XSV/ydP1WSBm/B8yR
8fTtjZ7ksnKNTkXFauhPO63AHHUjxb3mzxp+roG2LZcHdfOdyBpOBvPgcC1U
KPuKj6ywIydW7VAv9n8MsS1T/r2GSNI+CxYy9evATEQUjiuXVW+edRfvK3kG
G0VsN/WXO/BZtGn9ozUNMD0dHpkcZou6xNDnotFG8E2OOsRNOYBDU12dLetf
gErG6DtZlwvmDVbUqV1sAhXvjzl2bzxQTbuAksmaIdCgT3Sv2AcT/EQ+WXov
IeGIdZ6LGQcnUSA7GtEK8w3eSXxVTmDwhtrypQ9eAbuANbfqaQB2ldTGS1lt
kLH3DT/0dhB+4TSnGYa+Ac7N+CLDxGA02qU841PRDiE/3Xmka3EK2Tks39vL
OoGZurrZhHUGT2u7rehx7gJ6wxh38HUIrh3er9pq2w0/RMjnusWexcXq7+fV
TneDeX5HuvOBcKRXpwlXpveAhWsbcVcpAo+ZVrxWse6FjkPZmov9IlHwm0dW
1WQv5K+M/JRqxcOJIa2F/Vf6oAuiHAXMcyjax1ZK3i0DLbK46tvXcxhhyc8s
75fBzjV7wufWRyGrw+pVLv8t2Ad6MiTXonHbluhkxoZ+GGcWngj4g4/OOg2f
FZv64aauE814VwxO1CX2BvDewTYHWkfp8lhMobsGO+gNwNsaTer4QCwu7hTl
0GoHQCyyOzBTch7nhPMctwbKwaT97v6l/AuoUOQq7F00CHp0/tIy6zgMShUm
LqoZBMMniUbZrHisNDo/T+PEEGSGQcrhD/GoYRW09pzaMFzadK1dXpaA7esa
m0Ikw+BtzFkfF52It66Dnsx1BLKmxNOrLC6ii3CzhvbMCJwcDPLuoSVhJD+b
1/73KJT6KWYG1idh8YB2mpoNBaofCsZyfyXwfAbfvXMPBQs8evZZsgn0chjR
L7GnQOx/VjBsSeByieSWrRMFZuMvtm2yITAu6fCjBA8KhDRm20MHAo9uvjY2
P4SC0K1+zLduBK6I1rRUvkFB4fXnAmYogTNmYQtaCyloaey5X3WWwNcjfS9u
CCh4esqz+kg4gYRTmYvFbQru3LlVWBBJ4OwaBy5fQoER/vl1QyyB7dKk60pN
FPiM7ixiJxN4N2bKs6mFAhvHQ+qDfxGYvN3NMPcVBZaX5JyEqwRa5xuX/9JJ
Qb+xN02aSuD9M8+f8uQUbNRsLz2YTeCVdZuS7IcpCPbKrv2SQ2Bgb7oji6KA
Vtnxb0YegQY2x7vI8e8+ncr7PQUE0hWb84ip7/6P7jlRRQR2i7Zz3KcpkB4N
j9AXECjh5Jqs/0ZBSt8ih8c3CbyqqzoxO0sBvY6l5VdC4H9u5Gsf
       "]]},
     Annotation[#, "Charting`Private`Tag$49923#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["p", HoldForm], TraditionalForm], 
    FormBox["SidePayment", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {-319.9977830062196, 1067.602638748126}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{{{0.2, 
      FormBox["0.2`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.6, 
      FormBox["0.6`", TraditionalForm]}, {0.8, 
      FormBox["0.8`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {}}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.93814858226049*^9},
 CellLabel->
  "Out[861]=",ExpressionUUID->"b24bac7f-a8b0-4bb9-8aba-1b6d6488f442"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1nk0Ff0fB3Dkeahs4clSKiVtlMpWyucbKoqiUpE9ka247p0iPSFElksp
KkRKdq49pKkHoSTbnbnXRSE7l5Ii5Te/v+a8zpkz58z78/7MfJWdLp+4ICQg
ICAiKCDw/+uRC8Ot+IilvtfcjfmrvrG4sKGid6+CJvDcLvc+c4/Fdz9OTCpW
MIKSkFS7DsdY/GgzUZSscAp02cpq2uax+BnnHy/vKDhD3z/yf4urx+LdO24Z
RivQwbVA5a7kByae+s/xsNsKIfAIU7d2rojBg0SLN0UoxENn4oqamvtR+Fmr
tIKp6acw9e6egLtKOL58Mcjm8JoCmOW7pF3XCsE3WkwO/xdZAtm6x79HMQPx
Kx/2QOLMC1A69nXoY54fLleyokdQ8BXMj55TYm/3xcv6DN+37HsD5xzLpVca
u+Fv3JNXWY3XwlARXzht1Br/rrpfMs/rLegZqe7p4ezFheZypFZtbAIRh3vl
JiZHkPaiQ9nJ/PfQ6T/53PmFLXofovmhfmsLOCYwYg0kXdDa2LG5rMmPUOoX
1/etxRPVON7IKvr2Ebpz1bLEhzyR3W4Zq6qfH2FsZ3af3B9PlMTeW/FeqBVs
k2uzf2/zQvJKtzH+ylbY4foKk7jlhaSzN3/ThFb4fWNUx2jvJfRX7YXxV8xW
GDicoz4ffxmN/ejt6dRogwHjFasKxH1QmSvzzRHtNqjUmCyWlfdBgYR+xiu9
NnigGiTqs94HrSxP9so61AYbEoL7xHV8kAF2biHApg1Kzyw5Qtr7oIczbAWV
8DZYy3R0LSjwQcbTzadovW0Al7Z0OxnTkIzjdd2hgTbQdl1sTbGgoZ6Paqtt
RttAquiwd6s1DdELI/sPfm8DvcaBDEUvGnp82YSmsLwdTm45NL4vjoZmJ2qZ
uHY7qDlpn8EJGno6WtUkEdMOI30NmTW2vuhSwvEN7nfbAeZa/s664It0jPqv
1SW2A6avdfK2ly9qSl6mHpDeDrJTYyU7r/uiaXMr5khFO7hk/Rclk+SL9Mtn
T9b2t0N6Y7vMBtIXcW7u7Pbb0wGCV9/leJnQ0RONOq1O/Q64p51Sr2lOR57d
Z2M0jDrg2s9jNV9P05GATiAMHesAuSp5g5POdKQ6+iHtlHMHZGvxIzP+pSO6
uafLDmYHBLan5d1j0ZGE0nP+wEAHzM5EH78jxUDo9M3u/pEOOB21INf+DwPR
mPbv+iY74MbKzJ7lqxiILSj//NPPDjBLG3O+sJGBUgbD7XhinRDW/NC4Yg8D
bS90b27X7ITkdXqi3Q4M5DByqKptTyfobCr/N/kCA91ZvyGrVb8TNKyNxi3d
GWg2viukxbgTmjLqs/N9GajGz3TfO5tOMKCRmYuhDGRmuD3nTUgn2GHRRmuz
GOjfgGUPXkd0gnO41qxdHgMVlg6G4TGdYChbk3CfxUCymx871SR2wsTr9MyJ
FwzEE5NSrMzthIgbqt/3NjGQJ3s6nNXRCScnlTssRhgoyq3UJVWFDY9cy4K8
lDE0ivLCl29lg8aQt+SUCoYOyz/LxnawoWLXnKTbZgwJvY2fNN3Lhi2rVVz1
d2DIT4WOzR1nQ4JZhS22D0MuvbvCTlxjg5+F16iiJYZqy7ZmvgxkQ91Ekb3w
WQytj1nftDmMDS1yt/QHrDHUvU9aYjGWDdaOt7VvOWDo1MPpezkZbOD51i9a
eWDogGXhM+E2NpzIMmXsuoGhFLXMt5cJNtRn/NwfHIShhSWpI1weG7zpEy4N
NzFUUcRUZw2xoWyHPaETjqHtUpdLbX+z4b/byuvTYzEUNeRCNAgRwHzUxnt2
h3rfGru53aIEzGhu+pYSj6FnXsf2L5MhwHvAVYOeiKHV79TryjYTYCIi0J39
GEP+TzYOKW8n4JB1mLNDGoYIP6Wl0bsJeHF6qaFYOobubBY3O69PwDJnltDh
DAwtDRvvkDxFgIXc/gDjXCof24FZfysCtLfY5BTmUflo8uQH7Qh45d2iJlmA
ocD+dzbVbgQc5NuqFLAwNItyBi7eIMDUp6HTvwxD1U/HHl0JIUAite1PcDmG
gkXVToZFUPdHHC8NrsCQxMfc1+l3Ccgtr2q4WImhjt0TV4sSCbASqVA5XoWh
hwnqGq+TCcBUD4ipV2NI1T4/pec5AdIlMgEtLzE0/mbSciKXAEsR9yXxNRgq
Ut0hvsCi8vrmImv+CkP6kwXXFKoJeKl2qTUfx5Dwialdm18TQOiGBli8xlBT
qcaodj0BYGNTMEb59HXW2VMfCWjc7Zz9939Unp+nJc93EvAgKM3nFuU+o11v
fbgErFGsqFmknJlJ+zewl4Bb+tvjLtdi6JJYsRZzgIAz224Psylren8bTx4h
wEn+RK1WHYbm23c/zZ0koFtXTCWKMq5DP1f1jYDjVfoiXMphj0qkm34S8LTx
stfaegyZLs40kr8JWBWx8bQNZenzWkFDQiSYKQ7isZTJeoburAgJug908qop
p2wt4wuLk6CtlKr4ibJzzGyGjDQJ8xXPRH9R3vpV2269HAkZ/h8w8bcYmrK8
8s/O1SQUeqQ6y1EufVH+HpRJ+Bmb1ipP2V/p581jqiRUjZ55uYIyCtLVs91G
wmO6ySYhyn9/ufrVQ4OE4o0LEqPU898bv8jy1yLh8tR330bKd3LnHCL2kvD8
TbVlKuWzUnvlE4GEh6Hs4kuU19D9WzKMSBBe0xitSXmAqAwrNSFhykOxf5rK
I1vv1/7aYyRMHjEvzqDs/Vjve9tJEgbjpn6foKy9JCD381kSDsgEvZml8l5w
qT4/ZUtCU9ItgTuU3zQtKC46kVD7I6JchXL49v1t4hdJ4A2LD+VT85OdfYm2
0Ui4FsHKy3qDIa7Vnx97rpDwNIdnqEg59aV+gXEACVomqebBVD/UQl8puYSR
8CdL5L0u1aevw4sd9EgSwqvK9tyi+lZhiqJuxlLz+CK7upnqo5Hs6/nUhySM
j83sA6qvy64KFhU8JmHrtyB/D6rPH7sOuNU8JWHCpWMrk+q7TfoboiufhOGy
3s/VLzBE31VbsvI/EiqntiSxSql91FyXGtdAAv6MvBtUQuWpHRAp9oGEHWGR
AYeLMaS3V9NJiEPCh/boNaWF1PfP4Knk5CQJ8vHf7srlYGjGUODXxRkSrF8X
CSVkYejLQZvB/jkSYpj3bMUyMdRgIvuSI8wBHUvLTvIphpgWIe51ihz4S+l5
1c9kat9PfrJE6zigKuvlvykJQzTLfQeqNnKg8iF9nelDan+sZuRYGhxYxWWv
vXKf2h9H57qkQxywcn/PPRlDzdPbaB2dxoGY47crNgVgKImWupx/hQNC2lJP
SvwwFE1fmHW7zoFRAUk3nSvUvK+WNNuHc+DdYeHoNTQM6QSqXDuawgFR1+er
fF2p7xFTmL2+iQMzX243aZpjqCzO4XVyCweS9ysYrDWj9vNuda58JwekuRbR
iyYYikyg35T4xIEnHmZJaYYYOvF4QGP+OweqfPZHemhjqDe/NrJVmQsKP9w2
rFSk5jMhPL5rExf2r3b8dWklta9qB03j1bigcS/k10tpqh/ZdWJndLhw5vyC
j/5yDDll1EfzTLnwzNNxU+MvBhpMbmAOXeGCZdaNnX91Uf9jnuiU8XUufHax
PISzGejtKhPz7GAu5MYL+/u0MVDmg0Ypr2guFLc80CtrZCD3e01xX59woS7U
WK6xnIEmot7f/d3Mhe7xsTyZOwzU805sxq6dCwtJR9w1ohnowzKzUzjJhaik
rfsMwxkoP7xZ9mY/F0bey605+i8DeYd8uCc6x4Xzzw819bsx0My1jwkyKl3Q
trkf6QID/XLveLTFvwviA+jRbn10dErbNm77jS7YFSXoz+LRUa7gYNjukC4o
Ll0smWLTkV3iD5/9MV0gre4qa/mOjl7XKRpbPOkC0+pwj9JiOrq1znHmalMX
uKfvleoIpiMZ9oRpgyIPVh6o7ApVpM5DaZhB81oeiJQWZpXJ0FGt56JOmwoP
5qdbynrE6AhbsmIDbzsPZhpSomQXqfOVhuYc34AHH3fKKcj1+6LHkf7P5Dx4
cObyziNXsnzRtgMif1yqeNAwerAodYcvKszO2UTiPDhmLJUkvskXacqaW5jU
86jz2PMt3mt80b6hxKfbWnkAog3qK8V90bHorUenBnkgcZTV8GWEhmgcs0Q/
6W5o2T796k4aDb3wid8V5dYNXtaZbmuX0tDhJ8quLLke0E35c+hzhTfSTJRQ
rV/dA3W76dHe+d5oXcyvAa5yD8g75GfNpnujeb9OJ2G1HqBVXHIcivFGeRYR
dmdQDyRYSOPWzt5IRnDa8vfFHnj02acxXNwb9drjRiaVPcAeSpP6zbqErijZ
r/9s0wta3pGybpkeyMlc4zTPsRdm1SOn3Jke6NhNwduESy+cupA3ZY15INWR
9Olm716oNIm0+svIA3WUDOOVIb2wcmFp8c0ed6RhSrOPz+2FS/qjBRul3NGw
f2jS4YVe8DXuVv154SJSG7dcTph9AvagSEZalzOSkZwSrZ3/BDnpRT+NXM8i
4VePCjYkfQbbE+3K+5AO8tCs4iw92gdLZcwSxUQs8BwTp9Sa2T4IzFNSWLPq
Av59TFFq8H4/DAXC724xH7z05OEl8UYDwDfSrvRrvIrfMA59XDI4AMr3lhQd
tAzElbuPkOmhX0A0P8qzPigE36sTEq+waxD67wp41ZyPwG3WtMwJtg/C0t+a
okLGMfj3pug+76AhuHYsY63BfByeKGxHP6EyDK85GI/ZHI/L9JQ+EaodhtTh
qIGbLxPwv64HndrjMwJf8yT8MpUe4QJZdgV90qOgKEks6NBScNrDgmjpN6Ng
HeaS4b0uDX+5LVx0xaUx2HNPo50nn46vOEJTC5YYh9A1fte7/n6G89Q/tvtV
j0OLYRLrrO5zvDAFVAbsJiB16Sp5adss3LZAe4XSnwlIiQo6qxOTgweGpgXx
sidhyiXT13BpPp43rPRIwpQP6x3Uy87uKcTDk0Mdeo7xYaaxIZGtX4g7n5jY
mG/Bh69TRZ6WRoX46urqQrMzfLhTkzBsebwQv808Vx/lxIfrK9J2Ol0oxC9q
P5he5seH1LtJUplxhfj6EFljkQw+ZHeYHBgZLcT/6AaIE5l8WPFtj33oVCHO
mehvy8jhgx6ZeHn9bCEee6bY9hCLDwpZ9a72gix8cesJ39BqPigJ8soG5Fg4
r5WZsqSdDwP+ZcTqgyy8IuzH+fZOyu6v1jUcYeHxevZb0kk+DNrV2dDNWfjR
Z9tLDHr40Fs+ltdyjoVXXm1uDBrhw3TOg9I4Ggu/r67FtBjnQ4NBcILRVRbu
05d0SpnPhxe38j1/Xmfhm009e/EZPryz+j7lFMHChQU7nsb+4ENRsHKqApOF
fyrVc3eY54NlXIlBazwLr3ZP36Hxmw+3zMvJiIcsPGHt8u+Li3zojtjlZJjK
wv8Ho0c+3Q==
       "]]},
     Annotation[#, "Charting`Private`Tag$50037#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["p", HoldForm], TraditionalForm], 
    FormBox["SupervisorWelfare", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {-4512.263217123659, 364.44355929481344`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{{{0.2, 
      FormBox["0.2`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.6, 
      FormBox["0.6`", TraditionalForm]}, {0.8, 
      FormBox["0.8`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {}}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.9381485822884808`*^9},
 CellLabel->
  "Out[863]=",ExpressionUUID->"87a35bff-a694-4da8-a9ce-a34782e86551"],

Cell[BoxData["\<\"FigureA2b1.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148582404477*^9},
 CellLabel->
  "Out[864]=",ExpressionUUID->"7e24d526-b31c-40fa-862b-789705b4f925"],

Cell[BoxData["\<\"FigureA2b2.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148582510849*^9},
 CellLabel->
  "Out[865]=",ExpressionUUID->"3fd8fee5-a915-4e0e-9838-bf561c2c7f80"],

Cell[BoxData["\<\"FigureA2b3.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148582635236*^9},
 CellLabel->
  "Out[866]=",ExpressionUUID->"b09311ec-b784-43ac-8f07-1634e781256f"],

Cell[BoxData["\<\"FigureA3.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148582761174*^9},
 CellLabel->
  "Out[867]=",ExpressionUUID->"c6221b4e-1990-4656-b0ad-8cb93004631a"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV12lcTV0XAPAmaVKK6i0lSUkSEZG0jmaaO7dUGijSQJqeKJFonimEpAhP
k0iSVEJImlQa773n3NsgTTdE7tP07vPp/P5f9t5nrb33WlvZ87T9cT4eHh4J
Xh4e6nvw+OiX+u8OBpVu+gVjKjgmYCQfSMjpwPL6JQurDTi24252zjM5Y3CF
5SNlyBYtPeV35GgQ1cacDlXFsUPHZmuvyh2D3p5rRxfVcIyxNd4oVS4UMjfa
PRbXwLE8aZu4JLkYWH07eGrDNhyLFnq2MVEuC8ajc79u1McxJ+f8sukfBaBD
94gPdsAx0aVoV7O1ZZDYs2On0kkcU7WbGn2XXAGFjdUvQ6Nx7EzrHsieeQlJ
v08MZN3AMdkKSSYv72uwoQdHGBXjWCXbqLlN/y3o8LztiHuNY2/97qxxnmiA
niEzRVoHjv1W2ydReuoj5DXHNbPYOMbHLV65RrUJUlXiI17/wrFdS0cq8cfN
4Lvl0t0zfDSsOUan9YNGGwSVjNdNStAwpYxxbuFUO2zxMEkIUqRh47ME8+u2
DjD635Cj4CYaVjD2qkk8rRMuxJ7PDNGhYeKKjzhDQ12wUqHSO86AhqX4PvfO
29ANLrsI42FTGvYHKx7yieqBLTzG3H5rGlZTMH77TEwPuJprRf5BviSkiccl
9gDnW/+UpA0ar73kzf3MHjitfu6+ObKax+Nc5qMewG72HHiO7Hj+qROtvQec
jXmSk21p2POXL5pBuRf2hyoQm+1pWOj2hgqZd73wkJnZtteBhnnrrMu70tgL
jQVaux2QnXZFJou19sKo/8vUAOS9ejqefH29wNx3dykPmc+wQGJqqhc6GkoX
BRxpWLpdjN97+T5YOT/s+wm5KNB4XWhwH/Bk2Pw2cqJhxOOG5C/K/TBjf2x4
yYWGtU8KTGzf2A/m13I1Vh+mYfWaJpZZmv0wJxblpo6cV/Re7JBuPygq70ix
RfZ8+CGVbtkPm1L9V+Qhj9xpTP92ph+YxN67e11p2GRKc+ZCSz/sVnHlPe5G
w5ifxWbcO/vhXuK9uTDkVhErWn1vP7DbMwcTkB8ntKy+PNgP9wvPRJYgB8a0
XhPi9oP2pgMdP5FnzrXfWLVhAKxP7xGPdKdhc35dtzdFDEBsW2rjRQ8aRtvl
dkUragDoPgX+6cglvCNxO2IGoDrp8+IdZPfs2aB9aQPgImb5uxr5zXt5c7t7
A5CXIa8ygxy/7ujM2aYBaMqSuuR1hIat6p60bJSnw7bl+da7jtKwk/lhhi1K
dCherzBjiNxwckm3YwMdaixLE22Qw/glVehadDiULBXrg9y3TYfLMaRD7s/J
mpvId5MjHsj602Hkf6u0ucib9y9f9H5Fh/9NhmmWeNKwJ0XFG3vr6TAWrVT9
Allnta3dgQ90iLkjv/Mdsv637ILNX+ggcl74Vx+ydaqGxfQIHVTDv6QJetGw
4D6r7HApBpBa5qauyH8Mf74Zk2VAlYJeoTfyuZLr44cVGdDOe5kbiBwTRRgY
qDOgtkfeMxb5umrQMJ8BA1Q/++GlyC+Dsran+DLAPLqlkotsMLDbdSGAAY3f
7Dh8x2jYW2NGbEAoA04uaEuLITfJqvXZRqH5TwluWotMr30RJX2NAeV/hYL2
I/OIDDTn1jPg78HqSzHIZveUTzyVZcK0lHDZPLJOtrjaBwUmmDRtUOI/TsPW
pc0N9Sszwd1UOEoY+b/wr54CmkzAHm0Rl0EutUt0P4Qxwbx93FcLeRXvD4cF
HybMZkbKuiLzzDJWSwUwIWOtacxR5ImJpk61ECa0cOikN/KH3gI72/NMEEwL
8Q1CDn/iZHX/ChOyBiyrYpEJj3rjA9VM2HPuh2UxcrNDKb/7ayZsTCivLEOu
srj1NriBCfNXTVZWIF/VDcVyWplwq4d9tQbZREJdn8Nmwuhtvu5m5O3LpOf4
R5mgJ+Na1468do63+n+TTJBZTLzehfx3ZEDXcJYJWvbHZOjIxXXpO66JEvDw
5RraGHJ2ReTPwpUEFFkqv5pEjinyfVonTYB004LkD2T360ZbR5UIuPhBP30W
WTJgVmOvDgFD+QMf+b1p2KLX0HebPQQwPPNLBZHHnL/8e8yAgMPZ2GVh5AaT
YrU0cwJGCsUWxZHPKHqsZ7kSEB00pC2H7Gm7zZF+lACzv7lJa5CtL/Mm9XgT
ULanu1MRWe37/R8tgWi96jW665GlFP5R/fQPAXWh/vYbkBesTZ0bIgi4U5Xt
pobcVTFaXx1DANM7wEQDuf7by5nniQQ4Bsmu10Qulk9Wf5pGQO0z4GxBvnRx
S8ajbAKS10sc1kbeZhnskVVCQP6l8rO6yApRRpnpTwlIUXXv2428vHz1x6RK
AhoTkzX0kJmyL7Si6wkoZZ7M1UduOpjgGfmegIkQ5Tf7kJ+fd75+pomAD6uc
uwyQUwbnFk51EVBVZ9+MIZ+VadH27SNg+LT00/3IXgdyjx9jErB0xjXOkIpH
5OmbHoMEJGmoWxoh65VhLS6jBOwfOMtnTMWHLcnrOEmADNO6kLKk9KCO3U8C
FOKLMBPkebMKH8tZAoo1Uhopj0bE5pjNE6CrOIOZUvly3OyTz0NC0DN2IeUj
06v4lPhJAEMnfjPk7sT52znLSLi31sGKsoXK8E55IRKYd/riKdfXtLTdECHh
uPRIOeVdjpW+0itIaOuPaKVcwsnlz5QgYdIou5/y+sT4OyulSGh8aNBDOXt9
oG7aahKinAMaKIvXOH0RlSUhunzjPcoxDvv9E+VIcBTyD6TMndq0bLkCCa+f
7t5KOSBB6m7MWhIeLrvCpNY/pDy3m0+ZhF2HQy9Qdnk12BGlQkK98KA45XZa
88kFVRJqfBjpVDxMpyoEz6mTwGrz4qVcE38n768GCeI3wryoeG5XjtML20KC
tYxMJRX/R9UBXb+2kjD9wJBL5UeBdiggaDsJDrnzmpSvToIQR4cEdSdjOyqf
F9ZJ6o/tQf8TcsEfkGdecr+e0Cdhd3zQUWo/+OHs08MGJLyr/2VG7ReHuGf3
SSMSnok+GqH2V5NSzj53UxLa23tz9yBjL2N6BsxJUFC5bUbtR80JB9EeKxIq
ezv8diJX0SxfJ9mSYBUX+24HslGtYYgBTkLdKQmR7VQ80rYOPHAi4cWroiNa
yCN/VNOdD5OQIlobSJ2PYA8FoxXuJAj6/BtAnZ/EbcLFoV4k2CiI6VDna/XN
JXd1bxKyPGLnVJDzeP9I0X1IwOP6nihT83ewI4wCSJg4tHpYgRo/tOagVDgJ
EuKsEClqfEb54vtzJDw/ZVAkQZ1fk8Ly8AskcP0iWsWo8WWvy7Muk6C3LoOk
7hOjl6fHytJI4DyFzf+h+ydvYX2SVQEaX0P+MANZ01vOgPcRCYYnbp3uQ37R
KvGzopCEzhGe4K/IrXfnnRXKSFh17xLWgrywv3vT+EsSDKq8Baj71CUu8VNC
Gwmh5Urq15FHpqLO63eg/EvBmivIQYfCtKe7SFibYzmfjJyg7nXzUD8Jztt1
EqKRK5v0fdWGSahKMProT9ULiWmhhv/QfqvtYusjd9QmxR9YIOGnp7WSLnWf
n1QVbFtC+SyRstRGlmpy4e8XYIEYMzJMlXLs+wWOOAvWpQ6Kr0BeOXfr5xoV
FoSHOlv3oXrWXrgzKF+VBX+dnqR3IGc4tXPU1FkgUen05jOyROWySe0tLGi9
dvd3LbJ4UOA3M10W9MpK3ctHFvtmQg+xYIGMxoSIN3LzNdKFa8WC+bk0O3fk
FONzfRdsWWBvkZTgiCx670l3ogML9mmkfDRFFnFb8+WuBwsa/D4lqiELdU6/
/xzCgpH7aUqDqJ4LvL5dppLDAnGbkExb5H59Y3MilwVXfxRLmyKXVU+Qt/JZ
EO90NXYvskvlPimpRywQ6PHTUkN+WkqE8pSzgHv4cMF/qB9xz1HRY3xkwbXk
N8p5yFXhxQ3Xf7FAXW/Um4H6nbRZ3M3+Dwu2HhPMa0f2+mf+9wouC8bGhj+8
O0r9v9XG2EUW/Ht1nFGIfNyHkxgizIZrs+u1/0GWOrTDxlaJDSlW7SeFkP11
XvUJW7Bhp0HBPmXUr9W3fy2psmKDyLPSMClk6VPTUSds2VDtsjOXH/n1A1W1
9w5s+Pn2TdUw6vdWyWYEXzzCBvM4ck0h8ivuMdHZf9iwVe7dLU1k0dfi+4by
2OBTcTVKDfWbxQc88+r+sCGps114BPW7OprKBsBlQ//XK9pdyHXi5MDrOTYY
b9Y/+Ba5vdNN9g3PICwK2ljnIs+4Oae9ExkEvZXn8x2QDYJtIxvXDsKWU2dC
31D99y0Dpw7TQeg+2d2e6kzDfo/Lrxy5Pgh73ztc5qL+PevOt485Nwfhlv5e
GTbyDpuKKDxnEASPp95oQg4qt+LU5w/Cka6I47eRJ89ebL1dguZLStfSRx5e
NpJi93YQXOYtwiLQe+Gr0lPh2slBMPSKYH3HUf3DzfizjIdAvbfKPgu9T6LM
Y+9WjAyB36cwvvwDNEyZcbD3fuwwRIqYbh7dj+qbbkyW3PYReLfo0hG7m4a5
rm3j8naOgKtSnUy3Flp/Uyo7MPobDH568NlBBdUPAfdQ+w2j4LixLrFYFsWf
+fweX8MovKn32npUlIYtOx9N2xP0HRjsnJI1CzjGU+hexpYag5Albvf4FI4F
3ypLlXo7Bmc6pBpymThWuzlBSDJgHATbLPDyFhyTPBiseUl8Akpk+Gfla3GM
vqW9M7xmArr+VenaX4RjT3Jhw5D7JJxrK3Eh0PvUrWyXpOLiJBgmKJesi8Wx
i7H50fSiKWBmCobzBOJY6ajibXFLDkxzBDSuHMaxhDuxR5jWHKg9oeamg3zM
flL1sR0HCvLeXOpxwTGFmponVoc4IPvM/4EiclL64Q8pnhxwn6g2L3TCMZ9d
N3+IhHPgT0yRUB16T6+PWW2+/CEH9Iy5Zxk2OLa4O3JFz78c8M33XbyA3Dc5
2PGwmAPmHXFh65AzDj1zM33KgRaZVgMvaxxb0rAPia3hwO5ltVtHLdH/fknP
5e/kwNXky1mcAzhWFTfr1fmVA9tCo00ykLP2emy638sBWq/J923IFg+0KgyZ
HPgQpS4cbI5j1WdbPkV/54Co+aWiX6Y4dn3LznS7CQ6MCbF+ZCIHsXNoyhwO
xK1bpamDrG55kqif4YDIu9mzoSY4JsDbVZAxy4Gc2NLk1cjk871+R/7jgJv4
visVxjhW43d/67YFDhzgPkqkId9QEv29tMSBKDYndMYIx/4PxZTxSg==
       "]]},
     Annotation[#, "Charting`Private`Tag$50376#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["p", HoldForm], TraditionalForm], 
    FormBox["Visits", TraditionalForm]},
  AxesOrigin->{0, 76.56119638342992},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {76.56119638342975, 81.59813561315214}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{{{0.2, 
      FormBox["0.2`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.6, 
      FormBox["0.6`", TraditionalForm]}, {0.8, 
      FormBox["0.8`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {}}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148582813375*^9},
 CellLabel->
  "Out[905]=",ExpressionUUID->"a749d6bc-e52d-48d9-96e6-6255a8d2484c"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV1Wk4VV0UB3DcISqJqEgkQ0RSKSW1NimFejOVBpIMhUJJJKQQMhaXTHFF
hrgyT3GTqAwhZR4SupmORJTSu8+H89zn9+Xcs/Z/7bWkLB0NrXm4uLia8EP+
6lpzWtjfTPazPfKWWyfTEfWAmFO/qCpk760ZuIi943FMfL6oNqBPB9MdsPUa
2/MSRI0hRDVG0AX7pNXciweiVhBW73r0DnbNAbHiV/E2sBBFfeGHrSK9L3dG
8hJIO3FvCMTmHbzDPCF3BZSndNhh2L1b7x0IEXUBx8s0u3jsyMdr2bJnrgOV
wnf9MbauQKZGZbwrHBu6eY2JXTTZsJOQdId/Chm66dih2ULyBnJesFF+i2U+
dpLIf/5Bor5QfatyZx22R2N0zYkyX2iqi7vxFvuE3wCP9Bk/2Ds2/Kwee/ms
s3d5vD+st2R/f4/t1hbpNi4ZCJNp94fasY2Ce4tK2IHwRbfxZSe2srbcrO/5
IPi5xuNBN/ZQfrHz+pT7UNsutqIf2+Bhl90xuVCQTLh4ZRhbSU86Q6wuFP6q
8X0dIeunOHwdsQ2DRCMRIw72udLF51XG4TBd5kgbw9YXkW6RTQ2H9t4XeuPY
6s46U/dnw6Fv6w2/CWwRhXBlU0YELBVU/EBg8/gVHK0ciQANN9mvU9hTAx0O
MmoPoKQyaPI7dn2MVNZU+wP4HhvV/gO7ZObguxPyDyGRb2/pDHbacbtvFW4P
wZtPL3QW24c3f1OgaCQMOGYKzWFv1okIyHOKBNt62WbSrX6O37rrIkE9+ZPX
PHm+NUd1aZJRcLazQuIXtgxFKUvZNQroZztYpBs0ly43bYwCX0GF7b+xr9/m
OPjIMMBgMCeVtERVbWOmBwNWFl9auoBd+/eJclsrAwLdTlmQdtS4G/ZXIRry
Bbyekl7rcX5Kzicaoq3b+0mzS8HgeEc0uF6w5vuDfWl+fZ771hjImd4kQ1pI
7Y9Qin8MNPyRUCFddr3rWkNvDLja624hfaGgpG1W9REEyGeuI738B2OnZPAj
4JLYv0C+v3DbdcbhL4/g9056A2lzJ6M5Z/VYKD/NE0qaztpmGhcRC3mu2zVJ
syYESms4seDqwhgm6zNVmhSdhDh4u1/ZgzSXfcPNNdFx4MX+xU06IyOzG03G
QdrQvDt5XoacAA27g/HgwFD8Qp7vgpxtwsP4eFB4GbGP9BPrg4sVP+LB5Lhi
IJmH/hPpcyO6CRCwdf71T+zZQW62ADMBYnXnf5B5JkoNbNjzKwGcQxRXkT5k
UeljeTwRZIYipMn8Y3pvHihcTARpr7k109ia4qee9Jk8hvOxPxfIfho9rUbj
zX4MOrfkW8h+kxh3v5C9JQkeaMv8R/bj1WXfVmmdSgJh2uQc2b+1m01rPvkm
wR0YjRgl87u0S5arJwm+trs/+krOh4DUj5FLkkFVkH8JeR/Wpgv7K+xIBj6P
VushMs+R6RHDoGQIifnxc4DMz4qVnrqbCeb8Ibbk/bO5K3FK3YoJKj0sc/J+
ljND+N6HMWHxP6rOR2yrz/Z28yNMyP6iOdZM5mcur6QXlQJ6BP8dch4s9Yru
6WenAJdoBc9rMs8EeojLeArUWse5VJN59gxNJBx4Atc3Tyi+IPM7lcya+v4E
iMJuznNsott4KVMsFbR1KmVZ2P7mvNZGB1LB6UyxyTPs/AuOYkWRqVDQOx6a
hr3iyj4/D7U00OKzsonFfn2n8zTd8yl0mrpneGOfpYUUFqc+hdTuyjW3sKfv
oZWXmp7Cmx1i7m7YG0Kevq6XTIdcDSERZ+xb0ddVIqrTYSSFnncee/szQbo4
bybIV857I+y3yq8tGlUyoXlntKQGtsVzt3KvU5nwcFo3Tw07pKjf6XNmJliv
m85Vxuaws7vTjmbBieP7V4mT/fLxyPNtD58Bf0ed/UwSHS3753NWR4IFlRxn
hzjsmEsnzZUOsWAq8XNwFLZMm5KF4BUWlBwbSQrD3p/RfqH7BQtygnJS7mKX
ZjAKi5VzwX+JurA99oTReIVeUy5w6OrJatgm6dH11/jzgBfq7eoe01G82R19
G6k8+KHW9rcKe1DocqPpzjxY7HL2LcF29NR6v88sD/LE7R0ysAMNJ1qXZOcB
87bJ0yDsF3+0uuL08yGxgO+tLraswSTn1f0CWJU9U/4ykY7EvHXUbZMLIMFi
x2Ix9srspPtLiwvwPP+4LQf7N6+RssFgAbQ91rwci93MLr7Wt7sQlnpWqV7F
vqniszg/XAhJyoZ0SewmAWFhZVQMRlt+5V9OoKNX+y5bt5gUg0JT8kZL7BL7
2iIX+2Kols+5cwI7pc7tVDmjGN4oTq8GbDfv3sTDE8Vw10Q+XAB7I5GmcCG2
BK6JmLzOjqejG017IGamFOpHf6r3x+F+Ui4cfstbBpWyTuWt2E9CVIIXxMtA
+J3K1lrsFv1NneYHyyDULWDqGbZivfA1WUYZDDIedLlj99cRaXlq5SATsE5f
EFvnZeqKxpsVwAwxSt0VS0drCgT7uLmrIEzReMeZGNyfwQvGQ6uroIzHbacu
NtNquL5WqQo81Vnye7CVREpL75tWwR5Z08HV2FquFlEiuVUgb8lgtkTT0a74
k2mRW9lw+33HCW3s8+ZpZul9bNi4bUOYBAPv88EDDe81qkEpNEw77SEdfTrs
8z1Epxpcr2+fiMD+mVO5Wt+wGrjM3O95Yqt57Dn/xrYaPNJ+hBtjl6za+pP9
oBpWeifMcWOXaottyONUg3jC51WnH9BRRdrUtcjIV7CigD/wXzgdVdslrDs1
XgNv0zwvS4bieSm3TyD7ch1kHGparhCA9+mvrJXrZN+Bn+OoUstt/P3/LIqM
chogyDhyWNod7zNf1abaze+haJcn0eFER5LhY78yJpths6Yac9GGjsbm+vs+
qrRCT+uHEi4znM9o+bsVoR9A4HWg5zEDnN/6p8TQUBsYbjbTmdGmo+BLhTZJ
Mp9A76pzUcZuXC/KGrro3Q6e+Rmy3pvpyGV7TcHqVx2gtfa0uLc4zi+n5n6L
VBc40K19bi3H+8GuLU7hZjeIdoosmVigIUXNJYs25T1Qo334RvkYDekwpWyf
r+mDhdiCA+c6aejG+nMbP5/thxsZ6/541NGQ0rjJsvajAyC2brhVs5CGVglM
8db8HoCL2Up7S5JoiFoVx5KO/wz+t6RfdATTkL1qeSef3iCcQaIKwa40lHXE
Mqny5yDsrpEvGD5HQ7NjYitHGF/guxUnV0yXhgqNdCiR2kMQU0kzfLmNhrwP
+z0uGBkCNx65M2ZiNCTVq9uR4jcM3X/5HT/w0JC6mm+k6PYRKDL6opLAoaKz
Eu9/cX8YgY1XPW2C3lPR7LuQQSefr1DGf359fj4VxVDNXQxlOKD8WcNw7SMq
WtVXyOSp4UB1WZSGixcV0Tx9jPc4f4MZitDyaQsq4sowZw0KjULkPiVahzYV
XY1lhQhVj4KItvSOelkqeqEYwCt4ZQw6tPWOlNCpSFD3qtKdFeOwy2Z8x+5v
FNSzpfmDe8U4+Dt21bHeUFAuuUrNJ6BR4fPT5gwKMmPtEly/OAEnubus1t6n
oNt+yT49mZNQcyxF6+AlCsrmrI9boU+AkwE7RPMIBQUk+Fn0HSNApaEt+flh
CrIynJDNMSBg2ejNbCls8YqK3KMnCTgReTuLW4eCgsLO1AZbEmB7OELrpTYF
Xdz16PtSdwLeWrzu3Y8oaKOv8OElaQR8srds3qFGQYu7b/G3pxMwRunpYO6i
oM6JL61pWQS0XV7WKYgdfjLf7NBzAqL2hbMJVQr6t9nwml8FAXY3DZSytuN6
W8ISKR/w//eybmxQpqAS/7kLHz4ScNt0xZ/QLRQUufecQkoHAfvZqm5/lShI
L1W5QKuPAPOe3pNdihRU5tb41ucbAWieXfBQgYIYW3aGGYwT8D3Aa44b23kw
3liKIEBHmH+7kzwFyes79LNnCBBhJofqb6IgKnfbk/A5AjZwMnLL5ChooHCv
ncVvAvhy772Tx66wS9mq8peA+HUaPQxZCoqWXDb77x8B6fpvhqnY/wN5u+rb

        "]]},
      Annotation[#, "Charting`Private`Tag$50542#1"]& ]}, {{{}, 
      GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1.0199999795918366`, 2.393075747656969}], 
           Offset[{0, 0}, {1.0199999795918366`, 2.393075747656969}], 
           Offset[{0., 0.}, {1.030416656462585, 2.393075747656969}], 
           Offset[{0., 0.}, {1.030416656462585, 2.393075747656969}], 
           Offset[{0., 0.}, {1.0408333333333333`, 2.393075747656969}], 
           Offset[{0, 0}, {1.0608333333333333`, 2.3975895343573037`}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0608333333333333`, 
            2.3975895343573037`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0608333333333333`, 
            2.3975895343573037`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0608333333333333`, 
            2.3975895343573037`}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1.0199999795918366`, 2.393075747656969}], 
           Offset[{0, 0}, {1.0199999795918366`, 2.393075747656969}], 
           Offset[{0., 0.}, {1.030416656462585, 2.393075747656969}], 
           Offset[{0., 0.}, {1.030416656462585, 2.393075747656969}], 
           Offset[{0., 0.}, {1.0408333333333333`, 2.393075747656969}], 
           Offset[{0, 0}, {1.0608333333333333`, 2.3975895343573037`}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0608333333333333`, 
            2.3975895343573037`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0608333333333333`, 
            2.3975895343573037`}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0608333333333333`, 
            2.3975895343573037`}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{63., 7.500000000000014}, {1.0608333333333333`, 
            2.3975895343573037`}], 
           Offset[{63., -7.499999999999986}, {1.0608333333333333`, 
            2.3975895343573037`}], 
           Offset[{10., -7.499999999999998}, {1.0608333333333333`, 
            2.3975895343573037`}], 
           Offset[{10., 7.500000000000002}, {1.0608333333333333`, 
            2.3975895343573037`}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"Supervisor\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineOpacity->1,
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          Opacity->1,
          FontOpacity->1], 
         Offset[{36.5, 8.104628079763643*^-15}, \
{1.0608333333333333, 2.3975895343573037}], 
         ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1Xc8Vf8fB/BbhCTr3ksUpVRGNL5SUt6nkoyIUiQ766ekpIyoFJLIaBhJ
NtkhO9kjZI8yQ+KOc5QiIr/P+eM8zuP5eNz7ma/3+0hZO5+xXU2hUL6ih3xr
2051VE6fU6M495s1J1MxzuPi10bElOC3RpGzYgoV++91ZEy+mDr4PnvtGYas
09qX90rMEKzTA28bpVIxI5v59+FiNnDD473seBoVG9r98HiwmCuoR8gfWMig
YnH00/6BYr5QdmFQeEseFfPhyd/5SOwZyAydzTeuoGLGF+JzZn4kQV1CQemt
fiq2bsXH9KRkDvTYV3pZzFCx7Qb4VM3jAogYv9J1kZuGuX1SgchfJbBOaqWw
fjMNEy0QGl616gNUclnFCCvTsMKx4y1th6uhs97w3FtdGlbt+GrjBVYtCE2J
njhrQ8N+7zgikOXUADJVxBLuTsNWL2QIbtz+Eb5nF6SXPKFhyiuWhWezW2Ba
lvolMIGGtfgqfaqXa4MtT0ZT3d/RsM2hzIU3eDvEqYWrujTRMOb8yHDPnk7Q
liAOBA/QsCRG2Uf+J11QQzvlEYHTMH6JVGJiohv28bp151DoWND/3tnFSfeC
3BhXKZcQHZvDMiYc7vbBTZP9ozJb6ZjrvtoCkZp+4N2Tlhq5l46NZNc+7pD6
Am0MC8Gio3Tsr2P3S1nPAchttcBY+nRM/ij3P7uyQZgn3B49MadjJxOk7N+K
DsMIf3tr2RU65iZhsfWr6QiEPeEMsPOgY7tY59b16Y6CivyJEk0/OkYVmOGp
XRyFI9i9vKdhdIzzw8ucbTFfIbRY38Urho5dVir7vFZnDP5RzM7npdKxDC3r
uIq5MRjqf6tIz6Njv5nigpMvxsE/ZzjjQBkde3f2JMcz9QmY6RpM8KulY3c1
/V4XTE7AwMYYRlILHZMa0u5P9PsGqpTBW7RuOnbogO8zsX2TcPnwoYiQATpm
Ktm2sKprEgSidvctf0Xjfwweu+bzHYyvUybMpuhYJKe56xnpKdDKZmjXsNH6
h98lrK6dgqu6s8UBP+nYGm8fQ5Xr0zDt4l4rNU/HKG/Mc8aEGfDTsNBlbJGO
1bP6rr6mM2C0ayn8B3LQHgNF0w0MOJwZ+obyl46JFh/P6pFgQGRKfIkksmKD
TEajDAPe37hua4Js+u1nSrYaAwQwflYbconUw1hPRwasUXEuyl+iYy7ROcHC
1Qyo0EwyNv9Hx4qWoh9W1zJgn6NflyPykrm/j0sDA74fkzrhhvxwm9nNzhYG
0C8E8oUix2TymoX3MaCxW25XFXJdhe0uYTZa705mttQKHdswvrFZaAMTxvpf
1Q4gv5cP4BG6yoRhv/RjSqtEMOVu0dbwa0xo5N5YeQQ51ys1jHaDCcSOoP0n
kRNa68U3uDNhs951HhPkAOc1CpvvM8GkTE/vLvKZ/PsGCi+YoCkSbtKI/P2Q
d7RWBROYSRJuhqtFMMtxPovmSiZsEt/52xT5y+OYbbo1TFjbpnLZFrllsCxT
vxHNL+AFt5Dz7ixWGHUyof757YAIZK9qt3HbSSa8kE6K6UcW0nbZdZ+fBUfd
HrUZcohgcVUC6w4JseCVUfmMKfIelazpH1QWOKTF8Ngi68lMpViJsYCHx37T
TeRALnOpo9IsmC3f1f0MmbNGS4RyiAWvpVp8O5HnVKUod2xZkBY0wtLgFMH8
8iuG9zuwIOyWy4QuMk3e9D3bkQXuxhWdhsj/iUd4ml1jQZnH/afWyNf+8P0+
fJsF+67UJ3sjTxf8mf4byoLz4iHr85AHFdq7PMpZEO5QxKKuEcFeM4W8OT6w
ILQi8YIYsvWbszuCq1jQccy3QhJ5WrrPPa6eBct8267JIs9tHJZoaGeBk9yo
ixqyEC/LnvaNBVKNMXN2yBqT3EvZ69lQI6m+8BZ5bZJW8kFBNriW69oWIrdY
PdarFmaDutG5plLks0P88T2ibPCssvCoQbbspmssSbFhu6ijRzfy7eptoVrK
6PcO0Qu/kHNjQXrCnA3cB6OWdnOJYLOes9xWVmx4QO01+g9Z2SiVOXQJjWfk
mKGMXCYgkN/nwIaHWtGqR5Dr7w0fbXZhQ7jCFoo28oC1t0WePxvserjErZEl
Ye/x3Y/Y8JNzeNEG2XLjtx2Zj9nwzUao2x55susUnhzKhqDpYGcn5Bn1Td5R
0WyYvzap7Y7MtbMs+l422u+c8dMgZC0O5zvLuWyI0hVdfIIcNLLV2jOfDaZp
yhfCkIUiA2Vdi9nA/zqK8gJ501qTYvtqNowKLMzGIlt8Wx8zUcsGm9WNEvHI
CVVVd60a2GBgtwiJyDs9ZU9ebGHDttJAp1Tkfcw/PXq9bNgpbu2Ug3yzIbOk
uZ8NilvOmbxFLk60fKU5wAYlnmzIRz5i2mhzbJQNxkXhs4XImq0Rs/sZbMCk
91AqkM1ylIUk/rFBD1/J/IhcaPKHv52Cg+D5dGhB5ucq5XvAgUNZtX1TK3Kl
6RGeaR4cVNUkqtuRt/KqrxRQcdjY5K3Zi+z5bs2yvQgOqy41P+1D7rJsWBQX
w2G/3O7efmTfIu25e5I4NPUcwgbI87YxYJ+SxUGl1OnNCLKaIJW5Io9DcK9b
1ihyRFn3VJ4iDoanXqZ9JdcvbDyxQQmHqwO7fceR496LjTUr43CnMt5mAnnB
YWDkjgoOPi8UD39DTv9gPjChhsP1rOj2SeTVl7d8jjiKQ1SpZ/B35IsiY73a
6jhIGrgdnULmc7LtzNXC4UR+w5NpZJsNO9svncIhWmeTDAP5fc1Uq8hpHJK4
QopJXxW/0uRliMPAnfYKJpm/OoWG3UY4KK6NU2Ihb75O1I5dwMFLPySetPum
t9XPTXG4Xxa7ho3c3uBSqWmBA+fbT5akZW4oVfy1wuFLxOZ80j6Sc2XZNjhM
9oYtkf7SVFRiZY/Dhp7tR3AyDzc9imiOOLguDLiSDtyi+q7hCg5cGQWJpMeb
l/I8nXH4rZ/bRPqwW0WuggsOjmfaJkk/23ove9QVh3gR4b+k2a1HM5+6ofk4
PbgIZA0PjnQNTxxCfTnXko6Vrktd8MJh3XLBatLzbf7JmXdx+NQTOEv+X/+2
ZqLFfRzMbvkPkE7bwRsv7IeDrkZaKelVnc2xdQ9xUM+aCSVt4h0c4x6Iw4yw
pTnpPJnT0fLBONBH5raSXtctGDkcgsM9j3fD5P5t7nY+DwvHQUg7Jox0udyz
p+rPccgvzlAlTes9FzYfgcNFhYlB8rydfERD0qPR/Qpq3CRdv+tzkNkrHKhN
HZykJfujAwXjcDCqfPiYvL9bD0wDahJw2GHusJZ0m6Kk/61kHOp4Xe+Q933P
L95nMB2Hmr38emQ+1rtxa1tl4bB88Fc+mZ9oByfhyRwc5JbkhEnn66gkEgU4
7OUNKiLzhx15fdm1CAe+lcJ/ZD5bFNcoLZTg8JVDSY30pFBH7eoPOMyFbU8h
8+3CcSD4YRUOYXXRn8aQV37FnOOrRXkzu0SQ9bCh32GS3oRDmtCMGFkvOrEU
HtkuHJoHKdRB5P4Qu/asHhz+CxL/94U8P5+WyH39OFToBH79jHzHJlL28BAO
bQZOYWS95srt0Tn9HeXni/bzTrJ/bHpB7Z5G9eMoebwD+eP6pQFjFtpPifZ0
G5mvmYYr1j/Q+qazJcn+IFJk8eTmX5THlWyFBuTEtLrzi8s4tDMNYuuQ90TL
b75LIcDupD53Ldk/vedzAtYQ4JxsWV2J7HU8pOOlAAHrr30eLEEea6ugVW8j
YGLxVmI6snOV9JDGDgIE7Rai0pCX8gKTm2UI0EwfDEhBpr84r9yjQEChWMPp
BLJfmOJGUwcIwMT3349CzpqSeMl/ioDkn1Ue/sgBr/wsh/UIaNDYlfGAPJ8z
7O3ZBgRICkt23SP7dXl5rq4RAdvmorhuk/UVcrE+yJqAwVOUpavIDspRP3g9
CNi3/+eWc8jqTErRl9sELKuvLzMg6z/OwSv9DgF0lyIdPeTetQe5tX0J+CNQ
pn8S+cRQ76ZHIWi+9qDpg2Q/9aVpcqcQ8ON4/Xlx5H8Hvdb3pREgxOAzEUH+
zB7vTMlA+7vEOCuMHGqUb6bxlgD9qsvyvGQ+5M7c8Csn4HzR8/8toO/pYEdI
LEcXAWGnZ7f2Ihf7z1/q6iFgzO5rSAfyM1UL2cR+AvpEr862IOskKxYcG0bj
HbKNJb/Xpe6tTT7TBHxQ7H+Qi/xCYX+IAYuA4Q+NyRnI18diDKUINH7XxYoU
ZJlTV0YqfxFg5n65KwaZc1V3Uug8um/O6bYI5NF3qo6WiwQs8qyrCUcud0zc
vWeZgHyOzsxg5IjN636vrBCg7qIWHID8f5i0aw4=
        "]]},
      Annotation[#, "Charting`Private`Tag$50726#1"]& ]}, {{{}, 
      GraphicsGroupBox[{
        {GrayLevel[1], AbsoluteThickness[4], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
         "Round"], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1.02, 5.505403716026709}], 
           Offset[{0, 0}, {1.02, 5.505403716026709}], 
           Offset[{0., 0.}, {1.0304166666666665`, 5.505403716026709}], 
           Offset[{0., 0.}, {1.0304166666666665`, 5.505403716026709}], 
           Offset[{0., 0.}, {1.0408333333333333`, 5.505403716026709}], 
           Offset[{0, 0}, {1.0609698235460046`, 5.505160137247068}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0609698235460046`, 
            5.505160137247068}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0609698235460046`, 
            5.505160137247068}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0609698235460046`, 
            5.505160137247068}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], 
         BSplineCurveBox[{
          Offset[{0, 0}, {1.02, 5.505403716026709}], 
           Offset[{0, 0}, {1.02, 5.505403716026709}], 
           Offset[{0., 0.}, {1.0304166666666665`, 5.505403716026709}], 
           Offset[{0., 0.}, {1.0304166666666665`, 5.505403716026709}], 
           Offset[{0., 0.}, {1.0408333333333333`, 5.505403716026709}], 
           Offset[{0, 0}, {1.0609698235460046`, 5.505160137247068}], 
           Offset[{5., 1.1102230246251565`*^-15}, {1.0609698235460046`, 
            5.505160137247068}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0609698235460046`, 
            5.505160137247068}], 
           Offset[{10., 2.220446049250313*^-15}, {1.0609698235460046`, 
            5.505160137247068}]}]}, 
        {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[
          NCache[
           Rational[2, 3], 0.6666666666666666]]}], 
         PolygonBox[{
          Offset[{48., 6.500000000000011}, {1.0609698235460046`, 
            5.505160137247068}], 
           Offset[{48., -6.499999999999989}, {1.0609698235460046`, 
            5.505160137247068}], 
           Offset[{10., -6.499999999999998}, {1.0609698235460046`, 
            5.505160137247068}], 
           Offset[{10., 6.500000000000002}, {1.0609698235460046`, 
            5.505160137247068}]}]}, 
        {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666],
          AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[
         StyleBox[
          RotationBox["\<\"Worker\"\>",
           BoxRotation->0.],
          StripOnInput->False,
          LineOpacity->1,
          FrontFaceOpacity->1,
          BackFaceOpacity->1,
          Opacity->1,
          FontOpacity->1], 
         Offset[{29., 6.439293542825908*^-15}, \
{1.0609698235460046, 5.505160137247068}], 
         ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["p", TraditionalForm], 
    FormBox["Effort", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{All, 81.4}, {All, All}},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->False,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.08090169943749476]}},
  Ticks->{{{0.2, 
      FormBox["0.2`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.6, 
      FormBox["0.6`", TraditionalForm]}, {0.8, 
      FormBox["0.8`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, None}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148582910202*^9},
 CellLabel->
  "Out[908]=",ExpressionUUID->"fbeb1983-a357-4e00-ab1c-d2088c53f71c"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxF0H0s1AEYB/A7rlHW6fRiPzp2ovIWk5RUKhZ5qXmbLG8T0vWGbKXVdM1J
XmLtJuX9JaUbR+6scmLctMz7EYo7ziXceducGy1XbfU8z/bdd5//vnsYUTf9
Y7RIJJLvn/xtr5iZ/tbZoBOkf0dxM4qXEo6u/32wJL+wgXAHe3cPvy0iAsHB
0ermp0Q0eNzukVs2kQQu3Xk+LYNIBbN0G/Y9JjjgCyFlvKXlSrCehhXqYcID
W/gtzLRn8sG3e5xd81fegw35NAmZ3AJulLl19R5rA7cxi4xDlCKwau9x/Zrr
n8Baa9xtxhadYCdNZGNAbRe4K9Wxp8OqF2yaq1irXugDK9RSyZD9ALhyrqmT
+kQMptJfLcrlg+CsK4LYUvMv4NWTXHlcyjA4yUHE39U+ApbWijL7GV/BP5mD
BZZ3v4GtT+lsxDaNgT3KGZfrDSX4L3qE2WSoFGyjDNIb9p0Ab9df0hWtoykt
Bbw9hZPgq45No5u9ZWDu2ajSj6tolcJo23TeFFgQ4KHNcZeDUzzZJfxpNGPc
a6SC/R189HAqh3CYBoea9K6RxWhVZ7YsnvUDnE8JT/I3n8H9EkG5lgi96T4r
0DlhFkyqDufJDObAiS942QZt6GbrdF3aDQWY5pVo85CqBI/Z9omThei6Yldz
efg8OIznRKNvoB+wy1hjbxbANTP0AqrPIji9iB0pOYeO9p+3qPVD7xYK63yD
0Rk5FzuyotBxTs+XtySjzVJ3eOpUoTeO3Ns6/Bo9Oj81UMVF5wY3hJ2pR2us
/G+xheix/pxibTH6XZr6kngIzXGJsKwYQXu/PMA/LUF/uNP9mTWLzrM9lOOn
RCfICgMZi+j9PtekrStoCnmwMleNnhC4MCPX0UJmhZ39L/QzUz2VRoP+DRRC
Ph8=
       "]]},
     Annotation[#, "Charting`Private`Tag$50918#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["p", HoldForm], TraditionalForm], 
    FormBox["SidePayment", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {-1., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{{{0.2, 
      FormBox["0.2`", TraditionalForm]}, {0.4, 
      FormBox["0.4`", TraditionalForm]}, {0.6, 
      FormBox["0.6`", TraditionalForm]}, {0.8, 
      FormBox["0.8`", TraditionalForm]}, {1, 
      FormBox["1", TraditionalForm]}}, {}}]], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.9381485829294*^9},
 CellLabel->
  "Out[909]=",ExpressionUUID->"e674890d-ba3c-48da-a10b-b5cb83a50c15"],

Cell[BoxData["\<\"FigureA2c1.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148583048779*^9},
 CellLabel->
  "Out[910]=",ExpressionUUID->"4b61ab40-96b0-463b-82c8-a4c043e6015b"],

Cell[BoxData["\<\"FigureA2c2.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.9381485831597853`*^9},
 CellLabel->
  "Out[911]=",ExpressionUUID->"3e2a7698-3b79-47c7-864b-f902c1ecd87f"],

Cell[BoxData["\<\"FigureA2c3.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.833018971927226*^9, {3.8330190208339167`*^9, 3.833019068619101*^9}, 
   3.8330191538399153`*^9, {3.833019200661178*^9, 3.833019226695386*^9}, 
   3.83302068964935*^9, 3.833020766110037*^9, 3.833027252840571*^9, 
   3.833027361287244*^9, 3.833027395924115*^9, {3.8330275759775867`*^9, 
   3.833027593993608*^9}, 3.8334589097845087`*^9, 3.833459478944496*^9, 
   3.83345960179452*^9, 3.833459864154573*^9, 3.833460294324966*^9, 
   3.833460327549903*^9, 3.833460468238555*^9, 3.8334613524129267`*^9, 
   3.8334614288820868`*^9, 3.8341423699272423`*^9, 3.83414241144599*^9, 
   3.8358896521766663`*^9, 3.83622021627107*^9, 3.836220287480485*^9, 
   3.845116875226836*^9, 3.857733336404078*^9, 3.857734282875464*^9, 
   3.8981582618799686`*^9, {3.9241706354292994`*^9, 3.924170660643858*^9}, {
   3.924170838994054*^9, 3.924170860546323*^9}, {3.924951653806114*^9, 
   3.924951660975518*^9}, 3.925391783746749*^9, 3.9253918439388*^9, 
   3.926594078530162*^9, 3.927012844051272*^9, 3.9373681764102983`*^9, {
   3.9373687816706448`*^9, 3.9373688586921597`*^9}, 3.937368905475354*^9, 
   3.937368976409524*^9, 3.9373692314087973`*^9, 3.937369355538769*^9, 
   3.9373697044849033`*^9, 3.937370381008972*^9, 3.9373705224368362`*^9, 
   3.937370608707308*^9, 3.937385965794725*^9, 3.937388017854836*^9, 
   3.9375769944858294`*^9, 3.9375770637569513`*^9, 3.937577170748807*^9, 
   3.938148583262981*^9},
 CellLabel->
  "Out[912]=",ExpressionUUID->"6721f000-29e9-49ab-bb9c-4da07cb89c08"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.833018393904429*^9, 
  3.833018393904861*^9}},ExpressionUUID->"aaaed4b6-77dc-4a5e-ad04-\
5583d9ae0870"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.833018392539768*^9, 
  3.833018392541029*^9}},ExpressionUUID->"7ee21b68-dc79-4d7f-a7b3-\
3f90ba8b95ac"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.833018391003134*^9, 
  3.833018391003764*^9}},ExpressionUUID->"fa5b56c1-d875-448b-b865-\
ad019411f4df"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.833018387640115*^9, 
  3.8330183876409817`*^9}},ExpressionUUID->"ff326621-f758-4598-8942-\
ad1488612282"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.833018372184271*^9, 
  3.833018385604508*^9}},ExpressionUUID->"33206418-78c2-405e-be69-\
e0612ae80ac1"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.833018379092682*^9, 
  3.8330183790932207`*^9}},ExpressionUUID->"839c6625-0b72-4066-a4c3-\
eac45f4e87ac"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.833018381717599*^9, 
  3.833018381719936*^9}},ExpressionUUID->"9efee308-585e-4c83-826c-\
242bb00f0957"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.833018395458729*^9, 
  3.833018395460093*^9}},ExpressionUUID->"88f85bfe-3950-414f-813c-\
b7ae99486375"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.833018396274356*^9, 
  3.833018396275477*^9}},ExpressionUUID->"a27401bf-4ec1-43ac-89aa-\
0c17d974c7af"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.833018397028365*^9, 
  3.8330183970292664`*^9}},ExpressionUUID->"b667a3c4-2bb4-4b96-a98b-\
b06b07e1b3c7"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.833018404226885*^9, 
  3.8330184042272577`*^9}},ExpressionUUID->"13e990c8-7fd0-45b4-8139-\
2abcb7dacbbb"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.833018402824381*^9, 
  3.8330184028249283`*^9}},ExpressionUUID->"4ed2c42c-dc57-4143-a8fa-\
f31026c76ec4"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8330184005433483`*^9, 
  3.8330184005437803`*^9}},ExpressionUUID->"e2305dcb-28a6-4d50-a532-\
33e1e7e2e406"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8330183991032743`*^9, 
  3.8330183991046267`*^9}},ExpressionUUID->"48fa415c-e1c4-4655-8f96-\
0fc7b8075a68"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.825001516545326*^9, 3.825001518570375*^9}, {
  3.825001562337049*^9, 
  3.825001569064602*^9}},ExpressionUUID->"f76241b2-6249-4a72-9a65-\
b4f13826352f"]
},
WindowSize->{808, 747},
WindowMargins->{{530, Automatic}, {Automatic, 88}},
TaggingRules->{
 "WelcomeScreenSettings" -> {"FEStarting" -> True}, "TryRealOnly" -> False},
FrontEndVersion->"13.0 for Mac OS X ARM (64-bit) (February 4, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"48873848-2e40-49a3-8fac-9acf3c166ca8"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 81162, 2284, 5974, "Input",ExpressionUUID->"6b28fe39-acef-4edc-91ed-cb86cc831a6c"],
Cell[81745, 2308, 1666, 25, 56, "Output",ExpressionUUID->"6f70443f-fc7e-4a6d-85c2-367e1c1bb64c"],
Cell[83414, 2335, 1534, 23, 34, "Output",ExpressionUUID->"7cfb5e8c-df10-489d-a4b4-f68e9ba6324e"],
Cell[84951, 2360, 1534, 23, 34, "Output",ExpressionUUID->"0a216d4d-99f7-4bc1-b7a7-8b75a8e3feeb"],
Cell[86488, 2385, 1536, 23, 34, "Output",ExpressionUUID->"e794133a-8249-4831-a1ba-a7b96ff20a66"],
Cell[88027, 2410, 1534, 23, 34, "Output",ExpressionUUID->"52ab39c0-64cb-4034-8baf-c7637c4d70bc"],
Cell[89564, 2435, 1535, 23, 34, "Output",ExpressionUUID->"99311e97-2295-4e8e-bf5a-b6a9981297e2"],
Cell[91102, 2460, 1533, 23, 34, "Output",ExpressionUUID->"c62fad98-8da2-4ed3-ab7b-1031f095135c"],
Cell[92638, 2485, 1535, 23, 34, "Output",ExpressionUUID->"34609e7f-58b2-498f-b48e-fc3a161b1af2"],
Cell[94176, 2510, 8514, 158, 251, "Output",ExpressionUUID->"ab205a7e-5cc4-41ba-bd01-c4ed958e45db"],
Cell[102693, 2670, 1550, 23, 34, "Output",ExpressionUUID->"2ff7c508-d95a-46d1-9ce6-87de9a67f2fb"],
Cell[104246, 2695, 1667, 28, 34, "Output",ExpressionUUID->"907c7025-ad58-4502-af66-8a131c536f22"],
Cell[105916, 2725, 3076, 64, 253, "Output",ExpressionUUID->"4fbcf620-004d-4e18-8914-742851591e28"],
Cell[108995, 2791, 1548, 23, 34, "Output",ExpressionUUID->"25b7f40c-84d0-4488-89da-fb212a0a5ed7"],
Cell[110546, 2816, 6245, 134, 197, "Output",ExpressionUUID->"7aac2561-6299-4294-8b7f-21e2a0263a14"],
Cell[116794, 2952, 1549, 23, 34, "Output",ExpressionUUID->"95768526-c06a-4dc6-a02a-a834225715cb"],
Cell[118346, 2977, 3285, 67, 212, "Output",ExpressionUUID->"98bebcfa-0c6f-4425-9d7a-c3533e4ffcc1"],
Cell[121634, 3046, 1551, 23, 34, "Output",ExpressionUUID->"582985bb-1950-49ad-91d5-f3eb1fcad344"],
Cell[123188, 3071, 8486, 159, 253, "Output",ExpressionUUID->"ca5a1ce0-7854-455f-846b-687b29a2a506"],
Cell[131677, 3232, 19718, 363, 222, "Output",ExpressionUUID->"f9b5183c-2aef-44cf-a0e7-42225dbb4ecd"],
Cell[151398, 3597, 5157, 104, 236, "Output",ExpressionUUID->"497a28e2-6b9c-4e9a-b49d-632971dc0e15"],
Cell[156558, 3703, 1551, 23, 34, "Output",ExpressionUUID->"2cbf27ee-2ce5-4138-a5c9-cfe09fdd9fb8"],
Cell[158112, 3728, 1553, 23, 34, "Output",ExpressionUUID->"7b421193-5b17-43a8-b8a2-f1247c2477b6"],
Cell[159668, 3753, 1553, 23, 34, "Output",ExpressionUUID->"471224db-5919-4fb5-8c78-592992be2a89"],
Cell[161224, 3778, 5130, 104, 253, "Output",ExpressionUUID->"aa05dc8c-efa0-4137-ad0a-a332bb1b9ebb"],
Cell[166357, 3884, 12927, 254, 221, "Output",ExpressionUUID->"386c6edc-eb32-4526-9ef1-286235c9d5b4"],
Cell[179287, 4140, 5148, 104, 236, "Output",ExpressionUUID->"b24bac7f-a8b0-4bb9-8aba-1b6d6488f442"],
Cell[184438, 4246, 8962, 167, 229, "Output",ExpressionUUID->"87a35bff-a694-4da8-a9ce-a34782e86551"],
Cell[193403, 4415, 1551, 23, 34, "Output",ExpressionUUID->"7e24d526-b31c-40fa-862b-789705b4f925"],
Cell[194957, 4440, 1551, 23, 34, "Output",ExpressionUUID->"3fd8fee5-a915-4e0e-9838-bf561c2c7f80"],
Cell[196511, 4465, 1551, 23, 34, "Output",ExpressionUUID->"b09311ec-b784-43ac-8f07-1634e781256f"],
Cell[198065, 4490, 1549, 23, 34, "Output",ExpressionUUID->"c6221b4e-1990-4656-b0ad-8cb93004631a"],
Cell[199617, 4515, 8762, 163, 253, "Output",ExpressionUUID->"a749d6bc-e52d-48d9-96e6-6255a8d2484c"],
Cell[208382, 4680, 18037, 338, 213, "Output",ExpressionUUID->"fbeb1983-a357-4e00-ab1c-d2088c53f71c"],
Cell[226422, 5020, 4337, 92, 236, "Output",ExpressionUUID->"e674890d-ba3c-48da-a10b-b5cb83a50c15"],
Cell[230762, 5114, 1551, 23, 34, "Output",ExpressionUUID->"4b61ab40-96b0-463b-82c8-a4c043e6015b"],
Cell[232316, 5139, 1553, 23, 34, "Output",ExpressionUUID->"3e2a7698-3b79-47c7-864b-f902c1ecd87f"],
Cell[233872, 5164, 1551, 23, 34, "Output",ExpressionUUID->"6721f000-29e9-49ab-bb9c-4da07cb89c08"]
}, Open  ]],
Cell[235438, 5190, 152, 3, 30, "Input",ExpressionUUID->"aaaed4b6-77dc-4a5e-ad04-5583d9ae0870"],
Cell[235593, 5195, 152, 3, 30, "Input",ExpressionUUID->"7ee21b68-dc79-4d7f-a7b3-3f90ba8b95ac"],
Cell[235748, 5200, 152, 3, 30, "Input",ExpressionUUID->"fa5b56c1-d875-448b-b865-ad019411f4df"],
Cell[235903, 5205, 154, 3, 30, "Input",ExpressionUUID->"ff326621-f758-4598-8942-ad1488612282"],
Cell[236060, 5210, 152, 3, 30, "Input",ExpressionUUID->"33206418-78c2-405e-be69-e0612ae80ac1"],
Cell[236215, 5215, 154, 3, 30, "Input",ExpressionUUID->"839c6625-0b72-4066-a4c3-eac45f4e87ac"],
Cell[236372, 5220, 152, 3, 30, "Input",ExpressionUUID->"9efee308-585e-4c83-826c-242bb00f0957"],
Cell[236527, 5225, 152, 3, 30, "Input",ExpressionUUID->"88f85bfe-3950-414f-813c-b7ae99486375"],
Cell[236682, 5230, 152, 3, 30, "Input",ExpressionUUID->"a27401bf-4ec1-43ac-89aa-0c17d974c7af"],
Cell[236837, 5235, 154, 3, 30, "Input",ExpressionUUID->"b667a3c4-2bb4-4b96-a98b-b06b07e1b3c7"],
Cell[236994, 5240, 154, 3, 30, "Input",ExpressionUUID->"13e990c8-7fd0-45b4-8139-2abcb7dacbbb"],
Cell[237151, 5245, 154, 3, 30, "Input",ExpressionUUID->"4ed2c42c-dc57-4143-a8fa-f31026c76ec4"],
Cell[237308, 5250, 156, 3, 30, "Input",ExpressionUUID->"e2305dcb-28a6-4d50-a532-33e1e7e2e406"],
Cell[237467, 5255, 156, 3, 30, "Input",ExpressionUUID->"48fa415c-e1c4-4655-8f96-0fc7b8075a68"],
Cell[237626, 5260, 201, 4, 30, "Input",ExpressionUUID->"f76241b2-6249-4a72-9a65-b4f13826352f"]
}
]
*)

